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ProCommand. c'est la 
boiteaoutilsdu 
programmeur 8 bits, sur 
Apple IIg. lie. IIGS. 

ProCommand. c'est un 
ensemble de modules 
coherent pour enrichir le 
Basic, et simplifier la 
realisation des logiciels. 

Un Basic enrichi. Print 

formate, Type, Date, Tri, 
Rnd, formatage 
scientifique. Input formate. 
Clock, Hexdec. Pop. 

De nouvelles 
commandes disques. 

Online, Dump. Copy, 
Format, Eject. Setinfo, 
Path. Compare. Paste. 

De nouvelles 

commandes utilitaires. 

Varlst. Vartrc, Renumber. 
Hold. Merge. XRef, 

Des commandes 
d'edition, Find, Edit, 
Auto, Macro, Lyst, Onekey. 

De puissantes commandes 
graphiques Dhgr. &hgr. 
&hgr2. &hcolor=. &hplot. 
&plot. &draw, &xdraw, 
&fill. &print. hload, hsaue. 

Des commandes souris. 

Stint. &let. &store at, &pos. 
&wait, &end. 

Et pour aller plus loin, une 
documentation en frangais 
precisant le protocole a 
respecter pour integrer vos 
propres modules a 
ProCommand. 

~| ProCommand en 

-■^ 5.25" ou 3,5", 500 F 
(tarifabonnes: 450,00 F). 
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La toute nouvelle selection de Daniel 
Marquis est arriv^e : une foule de 
dessins, d'icones et d'images dont tout le 
monde pourra profiter, puisqu'ils sont 
disponibles en plusieurs formats. 

Pom's Art 1 et 2 pour 
Macintosh 



Vous pourrez regarder ou retravailler ces dessins avec Ics 
logicicls suivanls : PaintWorks Gold, AppleWorks GS, 
BcagleWriter... 

Ces trois disqucties forment figalement iin tout et ne 
peuvcnl fiirc vendues s6par6mcnL 




Pom's An I ei 2 sont deux disqueues Macintosh r^unissanl 
une trenlaine de fichiers chacune. Tous ces fichiers sont au 
formal MacPaint, vous pourrez done les regarder et les 
retravailler avec de nombreux logiciels de dessin tels : 
MacPaint, FuIIPaint, MacDraw... Mais aussi des logiciels 
de P.A.O. comme QuarkXPress, PageMaker, 
Illustrator S8... 




Publish. 1, 2, 3 et 4 pour 
Apple // 



Voici lout ces dessins iisibles par Publish.it. r6unis sur 
quatre disquettes, que vous pourrez acqufirir par deux. Vous 
pourrez les insurer dans vos Icttres, caries de visite et mises 
cn page, en leur donnant le format de voire choix. 

Vous irouverez tous les renseignements concemant les prix 
de CCS disqueties dans le catalogue, page 72. 



Les images sont rSunies par type. Vous en irouverez de 
loutes sortes, depuis les animaux. en passant par les 
perxonnages, les planles, lag&>graphie, I'afironautique etc. 



Au catalogue de ces disquettes 




Ces deux disquettes forment un tout et ne peuvenl ctre 
vendues sdpar^mem. 



Pom's Paint 1, 2 et 3 pour 
Apple // 



Ces trois disquettes regroupeni les mSmes dessins que les 
Pom's Art pour Macintosh, el meme plus encore. Sur la 
disquette n° 3, vous trouverez en plus quclques dessins en 
couleurs afin que vous puissicz voir lout ce que Ton pcut 
faire en les retravaillant. tout en restant dans la palette 
standard. 
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ASronautique 1 
Adronauilquc 2 
Amdrique 1 
Amdrique 2 
Animaux 1 
Animaux 2 
Animaux 3 
Animaux 4 
Animaux 5 
Animaux 6 
Animaux Marins 
Animaux Marins 
Bureau 
Chats 

Chiens 1 



Chiens 2 
Musi que 1 
Divers 1 
Divers 2 
Divers 3 
Divers 4 
Divers 5 
Divers 6 
Divers 7 
Divers 8 
1 Divers 9 
2^cole2 
Musique 2 
Enfants 1 



Pom's Art 2 

Maisons 2 
Divers 1 
Fetes 3 
Plantes Ih 
Plantes 2 
Transport 



Fetes 1 
Fetes 2 
Navigation 
Fetes 4 
Gdol 
Gdo2 
Informatique 
Informaiique 
Logos 1 
Logos 2 
Lot sirs I 
Loisirs 2 
Loisirs 3 
Loisirs 4 



Enfants 2 Maisons I 



1 

2 

Pcrsonnages 1 
Personnages 2 
Pcrsonnages 3 
Personnages 4 
Personnages 5 
Personnages 6 

Transport Rail 
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Voici le num^ro 50 de Pom's. Un evenement notable ! En effet, 
Pom's a ete la premiere revue fran^aise dediee aux utilisateurs 
d'un micro (Septembrel98I),ainsi — par la meme occasion — que 
la premiere revue & proposer une disquette d'accompagnement 
avec chaque numero. Rappelons, pour la petite histoire, que nous 
avons cree Pom's bien avant qu'Apple France ne naisse : nous y 
avons done cru plus encore que les gens d'AppIe... 

Ce numero est pour nous I'occasion de deux changements. Tout 
d'abord, nous avons d^cid^ de ne plus distribuer Pom's dans les 
kiosques. En effet, la situation de monopole des NMPP fait que la 
qualite du service n'est pas a la hauteur de ce que Ton pourrait 
esperer et, malgre les milliers d'exemplaires vendus en kiosque, 
nous opterons pour une solution moins facile, mais plus efficace. 
Par ailleurs, a plusieurs reprises, suite a des erreurs de la part de 
nos transporteurs, les revues sont apparues en kiosque avant que 
les abonnes ne les resolvent, ce qui est injuste. Nous distribuerons 
done dorenavant Pom's exclusivement par correspondance et via 
certaines llbrairies in format iques, comme c'etait le cas durant les 
premieres annees. 

Ensuite.noussommesheureuxd'accueillirBenoit Briere (Fun des 
auteurs de la pile "6*""' sens" presentee dans le Pom's 49), qui vient 
remplacer Christian Piard. Ce dernier sera cependant la pour 
vous acceuillir sur notre stand d'Apple Expo. 

Depuis la toute premiere annee de Pom's, il y a toujours des 
mauvaises langues pour dire que Pom's va bientot disparaitre, ce 
qui pourrait decourager certains d'entre vous de vous abonner. 
Rassurez-vous : je m'engage formellement a rembourser — le 
jour oil Pom's s'arretera — tout abonn6 qui le demandera, de ce 
quilui rested courirdesonabonnement, quelques soientlesautres 
propositions que nous pourrions faire. Et puis, croiriez-vous que 
Ton embaucherait quelqu'un pour arreter Pom's ? 

Herv^ Thiriez 



Imorima en France - DdpSl legal juillet 1990 
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^ -J7. J^ncCerson 



Continuons a exploiter le systeme structure de gestion de fichiers dont nous avons 
abondamment parle dans les pr^c^dents numeros de Pom's. Aujourd'hui nous 
proposons une premiere application : la gestion d'une petite bibliotheque. 



Premiere application 



Au travers de ce modeste travail, !a philosophic que nous 
mettons en CEuvre par rintermSdiaire de nos programmes 
donne la pleine mesure de ses possibilit^s. Essayez, vous 
adopierez ! Et quand vous aurcz adopli, compilez done Ics 
programmes avec rexcelleni "Beagle Compiler". Metiez le 
tout sur un disque dur. Vous ne reconnaltrez plus votre 
Apple n surtoul s'il est GS. 



Des bouquins bien ranges 



L'Stude d'une application commence gfinSralemeni par une 
analyse de la situation telle qu'on la trouve au premier 
abord. Dans notre cas. il s'agissait d'une pile de livres qui 
devaienl prendre place sur les rayons d'une biblioih&que. Cet 
^Idmentaire travail de manulcntion devait Sire accompli 
avec. en parallfele, la prise de notes sur le conienu final du 
mcuble k bouquins. Au premier coup d'ceil, il apparaissait 
que la pile de livres 4tait d'un conlcnu vraiment tr6s 
dclectique. II fitait alors teniant de micro-informatiscr pour 
mieux voir... 

AprSs €tude et reflexion, il fut d£cid£ ce qui suit : 

■ II serait enrcgistr^ le titre du livre, le nom de I'auteur, 
le nom de la collection ou de I'^diteur et queiques mots 
6ventuels sur le sujel du livre. 

■ Deux indexations seraient rdalis^es ; I'une sur le litre 
dcs livres, I'autre sur les noms d'auteurs. Cela nous 
pcrmeitmit d'avoir lant les titres que les auteurs par ordre 
alphabclique. 

■ Une recherche par mot-cl6 permettrail de retrouver 
rapidement les livres dont le liire contiendiaii le terme (ou 
une partie du terme) qui nous int^resse. Autrement dit, nous 
devrions pouvoir. par exemple, taper le mot "CLE" pour 



retrouver, parmi tous les livres, aussi bien "La CLE des 
songes" que "CLEs pour Apple II" ou "Comment fabriquer 
de fausses CLEs" et m£me "La case de I'onCLE Tom"... A 
condition que ces livres existent, bien sur. 

■ Le fichier serait limitfi k 250 livres, la bibliothfeque 
concem6e ne pouvant visiblemcnl pas en arriver lii... Ceae 
limitation aurail aussi I'avantage de juger de I'aspect global 
du travail fini avant d'entreprendre une extension ou, 
^venmellement, une future realisation plus ^toff^. 

Compte tenu de ce cadre volontairement limitfi, il dlait 
facile ensuite de d^finir les caract^ristiques du fichier. EUes 
furent d^terminfes ainsi : 

■ Le fichier 6tanl limits h 250 livres, la c\6 numdrique 
irait de 001 k 250 soit une longueur de trois chiffrcs. Pour 
memoire, rappelons que I'enregistrement zfiro est r&ervS par 
et pour le syst^me. 

■ Les zones auraient les longueurs suivantes : 

- Titre du livre 40 octets 

- Nom de I'auteur 25 octets 

- Collection ou Editeur 20 octets 

- Sujet du livre 60 octets 

Total 145 octets 

Ce qui donne, avec le caractSre de retour-chariot, une 
longueur d'enregislrement physique de 146 octets. 

■ Le titre et le nom d'auteur seraient indexds dans des 
tableaux en m<£moire sauvegard^s ensuite stu* des fichiers 
s&iucntiels, 

■ II y aurait trois balayages au total : 

- sur le numdro utilise pour renregistrement du livre 
(c\& num^rique ou rang de I'enregistremenl 
physique) ; 

- en ordre alphabdiique sur le titre ; 

- en ordre al[^b6tique sur le nom de I'auteur. 
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■ Un menu primaire d'orieniation serait utillsd en plus 
des passerellcs inter- programmes mises en place par les 
touches de fonctions el le zooming des balayages. 

On arrivait ainsi k six programmes principaux, £lant 
entendu que les programmes d'impression du cantenu de la 
biblioUi^ue seraient considdr^s comme secondaires : 

- le menu primaire d'orientation ; 

- la mlse h jour el interrogauon de lichier ; 

- le balayage sur cl6 numdrique ; 

- le balayage alpliabdtique sur le litre ; 

- le balayage alphab^tique sur le nom d'auteur ; 

- la recherche par mots-cld. 

A ces six programmes il faul ajouter le Startup, trfes 
important comme nous allons le voir, et un programme de 
fin de travail donl nous verrons I'utilild plus loin. 



Securite, 
optimisation et aide 



Unc question de sdcuritd se posait : certaines personnes 
pouvaicnl mettre ^ jour le fichier bibliolhfique. D'autrcs ne 
pouvaient que le consuller. Le m&me programme pouvani 
euc utilise tant en mise a jour qu'en interrogation, il a fail 
imervcnir une "initialisation" de la s&uritd au niveau du 
Startup. 

Le Siarlup demande ^ un utilisateur le nom sous lequel il 
est connu par le systfeme. II vdrifle que cet ^l^meni est en 
m^moire et si c'esl le cas (el dans ce cas seulemeni), il 
autorise la mise S jour. 

Pour des raisons de simplicity, les noms des utilisateurs 
autorisSs a mettre k jour le fichier oni enregistrfis dans le 
Startup dans le tableau wu$. La variable numdrique HU 
conticni le nombre de noms. Tout utilisateur n'ayant pas de 
nom contenu en wu$ se voit done refuser la possibility de 



meiu-e le fichier k jour, mais peut touiefois le consulter. Le 
programme final 6tant compile, les noms d'ulilisaleurs ne 
se voient pas au niveau de I'application. En outre, lors de la 
frappe du nom, le programme affiche des asi^risques au lieu 
des lettres frappdes. Pour permeitre les essais, le tableau 
wu$ contienl diSjJl deux noms : POMS et celui de voire 
serviieur. II ne vous resle qu'S les changer par ceux des 
personnes qui seront autoris6es k mettre k jour le fichier 
BIBLIO. 

Afin d'accdlfirer le fonclionnement de I'ensemble, le Startup 
rdalise une fonction complSmeniaire : il recopie les index 
sur le volume /RAM, vdriiablc disque virtuel, et c'esl k cet 
endroit que les autres programmes viennenl chercher les 
informations contenues dans les index, la lecture du volume 
/RAM ^tant paniculi&rement rapide... 

Ce petit avantage nous a toutefois oblige k dcrire un 
minuscule programme (biblieoJ) qui se d&lenche quand 
rmilisaleur quille son travail, el qui efface les index du 
volume /RAM libdrani celui-ci et rendani la place occupte. 

Enfin, il faut noter I'aide ini6gr& k certains programmes, 
disponible k I'^ran par simple utilisation de la touche de 
fonction I, la conversion chiffres-signes dvilanl k 
I'uUlisateur de passer le clavier en numfirique el quelques 
autres details donl rutilibS apparait k I'usage. 



Pour terminer 



La prdsente application devrait montrer que la gestion des 
fichiers indexes sur Apple II en AppleSofl peut rester 
simple, abordable el suffisammenl performante dans bien 
des cas. Elle int^ressera aussi ceux qui cherchent de vrais 
travaux k faire exdcuter k leurs machines pr£f6r£es. 

A vos claviers... El faiies-nous part de votre experience, 





BIBLIOOO 

10 REM **inrtnt**'r fHHFK * f finer trmttntinrtirir ft mi tier 1 1* 
20 HEM ' BIBLIOOO - MENU DE LA GESTION DE LA 

BIBLIOTHEQUE ' 
30 REM • Auteur F-J Anderson • 

40 REM rtt/r»t*»it*t*fttt*tf1'*Kt****1rHe1'tfrt*ftt1.-k/i 

50 REM 

100 TEXT : NORMAL : HOME : CLEAR :DS = CRR? (4) 
110 ONERR GOTO 9100 

120 PGS = "BIBLIOOO-: FOR W = 1 TO 80:»BS - WB? * " "; 
NEXT 

130 WN ^ 11: DIM m$IWN): REM Nombie de lignes sur 
1 'Ecran 

200 REM Salsle de la Date, Definition 

Ecran et Zones 
220 PRINT DS; "CLOSE-: PRINT D$ 

230 VA = INT ! PEEK (49041) / 2) -.HDS = STRS >WAI 
240 MD$ = RIGHT$ <-0- * STRS II PEEK 149041) - HA ' 
2) ' e * INT I PEEK 
149040) / 32)1,2) + V" * WDS 



250 ND$ = RIGHTS l"0- * STRS ( PEEK (49040) - INT I 
PEEK ^490421 / 32 

) • 32), 2) t -/- * M0$ 
300 TIS = "MENU DE GESTION DE LA BIBL rOIHEQUB- 
310 tm - LEN (TIS) -.Hi = (64 - Wl) / 2;W = (64 - HW) - 

(Wt ' 2) 

320 TIS - LEFTS IWBS,H%) + TIS + LEFTS imS,tl% * W) 
330 WNSID ' "01012TF -> l-Alde 4^Fln- 
340 mSI2) = "02012': FOR W ^ 1 TO 80:HNSI2) = WIS(2) * 
NEXT 

350 UNSI3) ' "03012" t- WDS t TIS -f PGS 

360 WHS(4) = -04012- * LEFTS (ItBS.Ht * S) + MIDS 

(ws (2) , e, m) 

400 >/NS(5) = -06172- 1 - Intecrogatlon/Mlse a Jaur du 
Fichier 

420 WNSie) = '08172- 2 - Llste-4ciran num4rique du 
FlchlBZ-- 

430 UN$I7) = -10172- 3 - Llsts-^cran slpliabitlque par 
Titres- 

450 msiS) = -12172- 4 - Llste-6cran alp)iab6tlque par 
fluteurs" 
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460 WJSf9) = ~ltn2- 5 - Recherche par mot-cJ^" 
<70 mSdOl ' -16172- 9 - Fln- 
550 WN$(11) = '21330CIIOIX ->" 
800 «MES$ - "00 ":WK5 = " - 

1000 HOME : FSM TAG Afflchage 

de i "Ecrar 

2200 WW - 0.- FOR if ^ 1 TO WN:WV - VAL I MIDS 

(tBISmrl.Z}) : VTAB W 
1220 WH = VAL f MIDS ImiS , 3, 21 ) -.WT = VAL ( MIDS 

mSW},5,l>l 

1230 POKE 1403, WH - It IF WF > 4 THEN WT = WT - 5; 
POKE 50,63 

1250 PRINT MID$ imSiN),6, LBN (MNS tW) ) - 5);: POKE 
50,255 

1290 NEXT : VTAB 23: POKE 1403,0: PRINT BIGHT? 

fWJS 12), 60): 
1300 VTAB 24: POKE 1403,0: CALL - 863 
1320 PRINT RIGHTS /tB4ES$, LEN ChKESSJ - 3); 
1330 IF MIDS IW4ESS,3^1) - 'E" THEN CALL - 193 
1500 REM TAa 

Entire du Cholx 
1550 WOS ' "': VTAB W: POKE 1403, HH t f LEN (UNS (m) ) 

- 5t 

1570 POKE 50,63: PRINT mS; : POKE 50,255 
1630 WAIT 49152,128: POKE 491S8,0:HK = PEEJf (49152) 
1640 IF MK ^ 10 OR «K ^ 11 OR WK - 124 THEN 1630 
leSO m$ = CURS m): IF PEEK 149249/ > 127 THEN UOS 
= WKS 

5000 REM rest des Touches 

de Fonctlan 
5010 WPS = ""; If UOS = GOTO 7000 
5020 IF was < > "J" AND >/0S < > COrO 5300 

S030 FOR W ^ 1 TO 5: HOME : PRINT 'PANEL D'AIDE' SPCI 

60) PCS; 

5050 PRINT MIDS fflNS (2) ,6, BO) ; : FOR «W ^ 1 TO 20 
5060 READ WS: IF US - """ THEN WS = -".-WW = 2i:W - 5 
5070 PRINT US: NEXT WW: VTAB 23: POKE 1403,0 
5100 PRINT MIDS (UN? (2) , 6, BOI ; : PRINT 'Presssz une 

Couch e ",■ 
5IJD GET US: IF US = "" THEN 5110 
5120 PRINT ; NEXT W; RESTORE 
5130 hMESS = 'OlAAlde tecmln^e': GOTO 9000 
5300 IF HOS = OR UOS = "■■ GOTO 7300 

5500 W4ESS " 'OlETouche de Fonctlan nan dSflnie": GOTO 

9000 

7000 REM — — Vecteurs 

des Progranmes 
7100 IF UKS = -1" OR UK = 03B THEN UPS = 'BIBLIOIO- : 

GOTO 7300 

7110 IF UKS - -2" OR UK = 123 THEN UPS - •BIBLI020': 



GOTO 7300 

7120 IF UKS - "3- OR m ^ 034 THEN UPS - "BIBLIOSO': 

GOTO 7300 

7130 IF UKS - "4- OR UK ^ 039 THEN WPS = 'BIBLI040-: 
GOTO 7300 

7140 IF UKS • "5- OR UK ^ 040 THEN UPS - 'BIBLI050-: 

GOTO 7300 

7190 IF WKS - "9" OR WK ^ 92 THEN GOTO 7300 
7200 W4ESS = 'OlECholx Invallde": GOTO 9000 
7300 IF WPS < > " THEN PRINT DS; ~RON';UPS: END 
7340 PRINT D5,-"J!LN BIBLIEOJ- : END 

9000 REM TAG Point 

Terminal Coimun 
9010 IF MIDS ItMESS, 3, 1) ^ 'A" GOTO 1000 
9020 GOTO 1300 

9100 mi = PEEK 1222) :W - PEEK (219) ' 256 + PEEK 
(218) 

9110 ONERR GOTO 9100 

9180 l*ESS - -OJEErr.- + STRS (UU) t ' 1." * 5TRS 

lU) ; GOTO 1 000 
9300 REM — Texte da 

1 'aide Int4gr6e 
9350 DATA "Dans ce Menu vans devez choislr 1 'une des 

options' 

9360 DATA 'propos4es pour vous rendre au pragrairme 

avec legueJ" 
9370 DATA 'vous souhalcez travailler, " 
9400 DATA ,'Deux Touches de Fonctlan sont actives lei 

: la touche 1 ' 
9410 DATA "et la touche 4. Le ddclenchement d'une 

Touche de Fanctlon" 

9420 DATA 'est abtenu en pressant Panme-Ouverte en 
catnblnaison' 

9430 DATA 'avec la touche numirlque dont le chlffze 

est Equivalent' 
9440 DATA 'au nuiii6ro de la Tauche de Fonctlon.' 
9460 DATA , 'Les Touches de Fanctlon dlsponlbles sont 

tDU Jours" 

9fl70 DATA 'z6p6r4es en haut de I'dcran de travail.' 
9500 DATA ,"Par facility, une Equivalence 

chiffres/slgnes est' 
9510 DATA 'Incluse au programme ee vous permet 

d'utlllser les' 
9520 DATA 'touches de la rangie supirleuire de votre 

Apple //. ' 

9540 DATA ,'Ceci concerne aussl blen les cholx du 

Menu que les' 
9550 DATA 'Touches de Fanctlon. " 
9590 DATA " 



BIBU010 

10 REM ii*ff*ltri'l'l'*ir1r*t*******ttttt*±it9^t9frt**'r*' 

20 REM * BIBLIOIO - Interro/MAJ du Flchler 

Blblloth^gue ' 
30 REM ' Auteur : R-J Anderson ' 

40 REM Hrt1rlrinr1t**lr*1'***»***mtii**n"i"*trr"i'*"tt 

50 REM 

100 TEXT : NORMAL : CLEAR :D$ = CURS (41 
110 ONERR GOTO 9100 

120 PGS = 'BIBLIOIO': FOR U ^ 1 TO 80:WES - UBS * " 
NEJtT 

140 UN = 10: OIM UNS(UN): REM Nombre de iifaeJJ^s 
150 WZ = 6: DIM WZS(3,WZj : REM NomOre de champs 
160 WW - 9: FOR U ^ 1 TO WW:LVS - LVS * -O'tHVS - WS * 
'9': NEXT 

ISO wa - 768:F1S = 'BIBLJO':IlS = FIS ' 'X1':I2S = FIS 
■t 'X2" 

200 REM — Salsle des valeurs sur Recard-Z6ro 

et de la Date 
210 PRINT D?: 'OPEN', -FIS-- PRINT D?/ ■READ";F1S 
220 INPUT Fl,Clt,Fl%, 11,11%, XlrI2, 12t,X2: PRINT 

DSJ 'CLOSE'JFIS 
230 PRINT DS:W = INT ( PEEK 149041) / 2) :UDS - SIRS 



m 

240 UDS - RIGHTS CO' + STRS !t PEEK /49041I - W * 2) 

' S * INT ( PEEK 

(49040) / 32)1,2) * V" + WDS 
250 WDS = RIGHTS ("0" * STRS I PEEK (49040) - INT ( 
PEEK (49040) / 32 

) » 32), 2) * "/" f UOS 
270 WU - PEEK (768) :HUS = 'Int.': IF UU > 2 THEN WOS = 

'MA J" 

300 REM Definition de 

I 'Ecran et des Zones 
310 TIS = -GESTION DE LA BIBLIOTHEQUE" 

320 UU ^ LEN (TI$1 :Ut = (64 - WU) / 2:W = (64 - WW) - 
(Ui * 2) 

330 Ut ^ (64 - ( LEN (TIS))) / 2;UU ^ (64 - ( LEN 

(TIS))) - (U* - 2) 
340 TIS = LEFTS (UBS.Ut) -f TIS + LEFTS fWBS,WI -f U) 
350 WNS(l) - '01012TF -> l^Alde 2=Menu 3=- ' WU5 
360 m$(l) = WNS(l) * " 4=Fln 6^Lst/N' 7^Lst/Tlt. 
8-Lst/Aut. 9=I4ots 

'Cl4- 

370 UNSI2) - "02012': FOR W = 1 TO 80:WNS(2) = HKSf2; + 
WEXT 

380 WN?(3) ' -03012' ^ WS * TIS * PGS 
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390 mSli) = "04092- * LEFT? (MB9,Wt r 8) f MIDf 

410 WNSfSJ = -O70]5Wum^ra du Llvze :' 

430 MNS(e) - -09010Tltre ; - 

440 msn) = -llOlOAuteui .- ■ 

450 mS(3) " •130}0Col2ectlon :' 

460 m$l9l = -ISOlOSuJst 

490 WNSfWNJ - '23010 A supprlmer ?' 

570 HS = ""; FOR W = J TO CltiWS = WS t CBRS f PBEK 

(VG + W)) .- NEXT 
580 WZ$(1,1) = •0719033-:UZSI2,1I = MS 
590 GOSUB 600: GOTO 700 

600 ms(1.2l - •09H402":WZS(2,2) = LEFTS 

lims.40) :WZS(3,2/ = VZS!2,2) 
620 MZS(J,3) = '1114252-:HZ$(2,3I = LEFTS 

IWB$r25l :HZS(3,3) = KZS(2,3) 
650 HZSn,4) = -1324200- :HZS (2,4) = LEFTS (MBS, 20) 
660 WZSd.S) = -1514600- :WZS (2,51 = LEFTS ims.60) 
690 UZSH.UZ) - -2319032' :m$i2,UZ) - "NOV-: BETURN 
700 mUGS = WZS12, 1) :AARGS = LEFTS (HVS,CH) :»MESS - 

-01 " 

720 UNS * -H-: FOR »" 1 TO UN: IF HNStfl - -- THEN B60 
730 NEXT :ftWS = 'Z': FOR W = I TO UZ: IF WZSfl.MI = " 

TfiFN 860 
740 NEXT : GOTO BOO 

760 HOME ; PRINT -Erreuir tableau M-;WS-S (-»">' : END 
800 REM Open du Fichler ec 

Chargemant. Index 
82 PHINT D$, ■ 'OPEN- r-nS;-,L -Fit: PRINT DS 
930 DIM XI S (XI + 11: DIM X2S(X2 * 2):M1S = '/RAM/- * 

I1S:M2S = -/RAM/" -f 
I2S 

840 PRINT 0S;'0PEN";M1S: PRINT OS; -READ'.-MI S 

950 FOR W " J TO XI: INPUT XI S (HI : NEXT 

860 PRINT DS-CLOSE-. -MIS: PRINT DS 

870 PRINT a$; -OPEN"; M2S: PRINT DS; "READ"; M2S 

880 FOR W - 1 TO X2: INPUT X2SfU) : NEXT 

B90 PRINT DS "CLOSE ';M2S: PRINT DS 

920 W = VAL rwzs(2, 1)1 

930 IF MZS<2,i) < > LEFTS tWBS.Clt) AND (VI > AND » 

< 250) GOTO 2500 

1000 REM TAG Point-retour et 

afflchage de 1 '6cran 
1050 HOm :» = 

1210 FOR WW - I TO HN:WV - VAL f MIDS tms (W) ,1,2) j : 
VTAB W 

1220 t/H = VAL I MJDS (HNS (mi) ,3,2)1 :Wr - W. f MIOS 

tHNS(»«).5, 1)) 
1230 POKE 1403, WR - I: IF yiT > 4 THEN HT ^ HT - 5 : 
POKE 50,63 

1250 PRINT MIDS (HNS (H«) , 6, LEN (HNS(tW)l - 5);: POKE 
50,253 

1270 IF WT < 2 THEN V tl -r 1: IF MIDS (MZS H ,fl) , 7, 1 1 

c -6" THEN PRINT 
- -;HZS ! 2,1/1); 
1290 NEXT : PRINT " "RIGHTS fmS(2) ,58); 
1300 WM = VAL ( LEFTS tHMESS,2)) - 1 
1310 VTA3 24: POKE 1403,0: CALL - 868 
1320 PRINT RIGHTS (HMESS, LEN (UMESSI - 3): 
1330 IF MIDS (HMESS, 3,1) = "E" THEN CALL - 198 
1500 REM TAG Entrie 

Argument, et DonnSes 
1510 U0$ = ^ m * 1 : IF WM > HZ THEN HM = 1 

1520 IF HM < 1 THEN hW = WZ 

1530 HO = 0:WENTS = WZS(2.UM) :WL = VAL ( MIDS 

(UZSfl.m,5.2)) 
I5J0 WV = VAL (MIDS (tlZS(l,HM) .1,2) I :m ^ VAL I MIDS 

mS(l,it4),3,2)) 

~ 2 

1550 WT = VAL ( MIDS (WZS (1,HM) ,7. 1 ) ) 

1600 no - m f 1: IF m > WL GOTO 2000 

1610 VTAB HV: POKE 1403, WH t HO: POKE 50,127 

1620 PRINT MIDS (HENTS,H0.1) ; : POKE 50,255 

1630 WAIT 49152,128: POKE 49168, 0:WK = PEEK (49152) 

1640 IF WK ^ 10 OR WK = 11 OR HK = 44 THEN 1630 

1650 IF WK ^ 24 THEN IF HM > 1 THEN WZS (2, WMj = 



LEFTS (HBS. WL ' 2) : VTAB 

HV: POKE 1403, HH f WO: PRINT HZS(2,HM);: GOTO 1530 
1660 IF HT = 2 ANO HK > 96 AND HK < 123 THEN WK - WK - 
32 

1680 HKS = CHRS (WK) :WOS - "'; IF PEEK (49249) > 127 

THEN WOS = HKS 
1690 POKE 1403,HH + WO; IF MK ^ 13 GOTO 2000 
1710 IF HK ^ 9 THEN PRINT MIDS (WENT$,H0,1) ; : GOTO 

2000 

1720 IF WK ^ 27 THEN POKE 1403, WH t 1: PRINT 
WZSI2,m> : :WM ^ m - 2: GOTO 
1500 

1740 IF HK ^ 21 THEN PRINT MIDS fHENTS,WO,l);: FOR K 
= J TO 48: NEXT 
: GOTO 1600 

1770 IF HK = 8 AW UO < 2 THEN HO : GOTO 1600 

1780 IF HK ' 8 THEN PRINT MIDS (HENTS.HO, 1) : :H0 - HO 

- 2: GOTO 1600 

1810 IF HK < > 127 THEN 1900 

1S20 IF HO ^ HL THEN HENTS = LEFTS (HENTS,HL - 1) + " 
": GOTO 1860 

1830 IF WO = 1 THEN HENTS = RIGHTS (HENTS, WL - 1) * - 
": GOTO 1860 

1840 HENTS - LEFTS (HENTS, HO - 1) * RIGHTS (HENTS,HL 

- HO) * " • 

1860 HZS(2,HM) - HENTS: POKE 1403, HH * 1: PRINT HENTS: 

GOTO 1610 
1900 IF WOS < > "" GOTO 2000 

1920 IF HT ^ 3 Am (HK < 47 OR WK > 57) AND HK < > 32 
GOTO 1630 

1960 PRINT HKS;: IF HL ^ 1 THEN HENTS = HKS: GOTO 1600 
1970 IF HO ^ 1 THEN HENTS = HKS * RIGHTS (HENTS, HL ~ 

WO) : GOTO 1600 
19S0 IF WO = WL THEN HENTS " LEFTS (HENTS, HO - 1) * 

WKS: GOTO 1600 
1990 HENTS = LEFTS (WENTS,HO - 1) * HKS * RIGHTS 

(HENTS, HL - HO): GOTO 
1600 

2000 POKE 1403, HH f UO: PRINT MIDS (HENTS, HO, 1) ; 
2010 UZS(2,*B4j - HENTS: IF HQS = "" AND HK < > 13 GOTO 
1500 

2020 H5UPS - HZS(2,HZ): VTAB 24: POKE 1403,0 

2500 REM — ■— Construction de 

1 'argument 
2530 HARGS - ""; FOR W = J TO Cl% 

2540 IF MIOS (HZS(2,1) ,H,1) < > " " THEN HARGS - 
HARGS + MIDS (WZS (2 
,1),H,1) 

2560 NEXT H: HARGS = RIGHTS (LVS * WARGS.Clt) :HZS (2, 1) 

- WARGS 

2600 WffiSS - 'OO ":WPS = "": IF WOS = "" THEN 4000 
3000 REM — — — Tests des 

Touches de Fcnctlon 
3050 IF was c > "1- AND HK < > 38 GOTO 3450 
3100 FOR H - 1 TO 5: HOME : PRINT -PANEL D'AIDE" SPC( 

60)PGS; 

3120 PRINT MIDS (HNS (2) , 6, 80) ; : FOR HH ^ 1 TO 20 
3130 READ HS: IF HS = "**" THEN WS = --:HW - 21:H - 5 
3^50 PRINT HS: NEXT WW: VTAB 23: POKE 1403,0 
3170 PRINT MIDS (WNS (2) , 6,80) ; : PRINT -Pressez una 

Touch B ",' 
3200 GET HS: IF HS = GOTO 3200 



3210 


PRINT 


NEXT H: RESTORE 






3230 WESS " 


RIGHTS ("0" 


* SIRS (iB4),2) 


+ "AAide 


tecmln^e" 


■ GOTO 9000 








3450 


IF HOS 


- "2- OR HK = 


123 


THEN WPS = 


"BiailOOO" 


34 70 


IF HOS 


= -3- OR HK ^ 


034 


GOTO 4000 




3500 


IF HOS 


= -4" OR HK ^ 


039 


THEN HPS - 


"HISLJEOJ" 


3550 


IF HOS 


= "6- OR HK = 


093 


THEN HPS = 


"BIBLI020" 


3600 


IF HOS 


= "7" OR HK " 


125 


THEN HPS = 


•BIBLI030- 


3650 


IF WOS 


= -8" OR WK =^ 


033 


THEN HPS = 


"B1BLI040" 


3660 


IF HOS 


- "9" OR WK ^ 


092 


THEN UPS = 


•BIBLI050 - 


3700 


IF HPS 


< > "- THEN 


3800 







3710 HMESS - LEFTS CO' + SIRS IHM),2) » "E" 
3720 hWESS = M4ESS * Touche de Fonction nan d6finle": 
GOTO 9000 

3800 PRINT DS"CLOSE": PRINT DS: IF HPS = THEN END 
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3HJD VThB 2A: POKE HV3,0: CALL - SES: PSINT -Vn 

Instant, avp..."; 
3B20 PRINT D$; -Rm-.-HPS: END 

4000 RfM ■■ — rraiteme/it 

selon Aigisnents 
4020 IF WZS(2,1) = LEFTS (LVS,C1%) THEN UME5S = 

'OlAArgument Inca/rplet 

-.- GOTO 90 DO 
4050 IF dWRGS - AARG$ THEN 5000 
4070 GOSUB 600:R!t - 0:R1 = VAL (UARCS) 
40B0 FOR W ^ 1 TO Cl%: POKE VG * W, ASC I MIDS 

IMAFGS, W,2}l: NEXT 
4100 PRINT DS:"READ-;F1S:'.R';R1: INPUT HI?: PRINT D$ 
4130 IF LBN IRIS) > 7 AND LEFTS IR2S,10) < > LEFTS 

IVBSrlO) THEN Rl 

1 = 1 

1300 IF nit - J GOTO 1400: REM TAG for ProDOS Range 
Error 

4310 hMESS - '02AP3S de donn^es A cet argument. 

Creation possible, " 
4320 IF HU < 3 THEN HMESS = "01AP3S de donn6es i cet 

argument. ' 
4330 IF XI S (XI - 1) ^ •• GOTO 9000 

4340 hNESS » "OlEIndex pleln. Creation refus^": GOTO 
9000 

4400 W ^ 1:WW ^ VAL ! MIDS IWZS fl , 2i , S, 2) I 
4410 HZS(2,2} - MIDS IR1S.M,HH):» ' W * hW 
1420 ^ VAL I MIDS INZS (] , 3) , 5, 2) ) 
4430 WZS(2,3) = MIDS fB]S,W,HWJ;W = W ' VM 
1110 WW = VAL f MIDS mZSd, 41, 5,2)1 
1150 WZSI2,1) = MIDS fRIS, W, WWJ ;W = W t WW 
1460 WW ^ VAL (MIDS IWZS(1,5) ,5,2) ) 
4490 WZS(2,5) = MIDS (R1S,W,WW) 
4950 WZ$(3,21 - WZS(2,2): GOSUB 8910 
4960 WZS(3,3I - »ZS(2,3): GOSUB 8930 
4970 WMESS = •02AEnreglstrement trouvS. Modlficstlons 
possibles' 

4980 IE WU < 3 THEN WMESS ^ -OlAEnreglstrement trauv4' 
1990 GOTO 9000 

5000 REM TAG Contrale de 

validity des zones 
5020 IF WU < 3 THEN hWESS - 'OlE GOTO 9000 
5050 IFWZSI2,4) = LEFTS (WB$, LEN lt/ZS(2.4)l) THEN 

U4ESS = •04ECollec 
tion absente' 

5100 IF WZSI2,31 = LEFTS (WBS, LBN (WZS(2,3))) THEN 
hMESS = 'OSENOm Au 
teur absent " 

5170 IF t/ZS(2,2) = LEFTS (HBS, LEN (WZS(2.2II1 THEN 
WMESS - "02ETltre 
absen t " 

6900 IF LEFTS (WMESS, 21 < > '00' GOTO 9000 

6910 IF WSUPS < > 'GUI' AND WSUPS < > 'NGN' THEN 

HMESS - RIGHTS ("0" 
t STRS (»Z),2) f "EErreur.., Ripondre OUI ou 

NON": GOTO 9000 
7020 If WOS < > '3' AND WOS < > CHRS (31) THEN 

mSi S animus d!gf 

reur. . . La MAJ est possible par la touc/ie TF3': 
GOTO 9000 
7400 HME5S - ":m = 
7130 R! - VAL (WARGSl 

7500 REM . .— — Creation 

d'enreglstreraent 
7510 IF Rlt < > GOTO 7600 

7520 IF XlSIXl - 1) < > THEN WESS = 'OlEIndex 

pleln': GOTO 9000 
7530 WMESS = 'Insertion index en caurs" : GOSUB 8970 
7540 WIS - WZS(2,2) * RIGHTS (LVS t STRS (Rl),Cli): 

GOSUB 3610 

7550 WIS - WZSI2,3) * RIGHTS (LVS t STRS (R1>,C1%): 

GOSUB 8660 
7560 WESS = 'OlACriation effectufe" 
7570 Fl = F2 * l:Rlt = I .-WJ = 2: GOTO 7800 
7600 REM Suppression 

d'enreglstrement 
7610 IF WSUPS = 'NON" GOTO 8000 



7630 WMESS - -Suppression Index en cours": GOSUB 8970 
7640 WIS = UZS(3,2) -> RIGHTS (LVS ' STRS (Rl),C2t): 
GOSUB B700 

7650 WIS = WZS(3,3) » RIGHTS (LVS * STRS fRl),Clt/: 

GOSUB 8800 
7660 WMESS = -OlASuppresslan effectu6e' 
7670 Fl " Fl - 2:R1\ = 0:WI - I: GOSUB 600 
7800 REM MJse a Jour 

du Record-Z4ro 
7920 VTA3 24: POKE 1403,0: CALL - 868 
7930 PRINT 0S;'miTE':F2S; ",R0" 
7940 PRINTF2: PRINT CI t: PRINT Fl% 
7950 PRINT II: PRINT lit: PRINT XI 
7960 PRINT 12: PRINT I2t: PRINT X2 
7970 PRINT DS: GOTO 8100 

8000 REM — Modification 

d'enreglst remen t 
8010 IF WZS(2,2} = WZS(3,2) GOTO 8050 
8020 WIS = tiZS(3,2) + RIGHTS (LVS + STRS (Rl),Clt): 

GOSUB 8700 

8030 WIS = WZ?(2,2) + RIGHTS <LVS * STRS (R1>,C1%): 
GOSUB 8610 

B010 WI - 1:WMESS = '01A»Ddificatlon effectu4e' 
8050 IF WZS(2,3) = WZSi3,3) GOTO 8200 
8060 WIS - WZS!3,3j * RIGHTS (LVS t STRS IRl),Clt): 
GOSUB 8800 

8070 WIS = WZS(2,3) * RIGHTS (LVS * STRS IRl),C2t): 
GOSUB 8660 

8090 WI - !:WMESS = 'OlAMadl flection effeceuie- 

62 00 fllS - «ZS(2,2) t WZS(2,3) -t WZS(2,4) t WZSI2,5) 

6120 WZS!3,2) = WZS<2,2) 

8130 PRINT DS ; 'WRITE'. -FIS.-'.R'RI: PRINT RIS: PRINT DS 
8200 IF WMESS = "" THEN FiMESS = •02AMlse i Jour 
effectuie, , , ' 

8400 REM Ecrlture 

de 1 'Index 
8120 IF WI ^ GOTO 9000 

8430 PRINT DS; 'OPEN'; IIS: PRINT DS; 'WRITE'; 11$ 
8440 FOR W = 1 TO XI: PRINT X2S(W) : NEXT W 
8450 PRINT DS; 'CLOSE'; IIS 

8460 PRINT DS:'0PEN';M1S: PRINT DS; 'miTB";MlS 
8470 FOR H 1 TO XI: PRINT XIS(W): NEXT W 
eiSO PRINT DS;'CLOSE';M!S 
6490 PRINT D$: GOSUB 8910 

6530 PRINT DS; 'OPEN'; I2S: PRINT DS; "WRITE"; I2S 
B540 FOR W ^ ! TO X2: PRINT X2SIW) : NEXT W 
8550 PRINT DS;'CLa5E";I2S 

8S60 PRINT DS; "0PEN';M2S: PRINT DS; "WRITE":M2S 
8570 FOR M ^ 1 TO X2: PRINT XZS(W) : NEXT W 
8560 PRINT DS; "CLOSE- ;M2S 
8590 PRINT DS: GOSUB 8930: GOTO 9000 

8600 REM — 

— Routines 
8610 FOR » = 1 TO X2:WWS = XIS(W) 

8630 IF WIS < WWS OR mS ^ " THEN XlSfWj - WTS;WrS = 
KWS 

8640 IF WIS < > •' THEN NEXT W 
B660 FOR W = I TO X2:WWS " X2S(U) 

8670 IF WIS < WWS OR WWS - THEN X2S (W) = WIS:WIS - 
hWS 

6660 IF WIS < > -- THEN NEXT » 
8690 RETURN 

6700 REM Suppression Index 1 
6720 FOR W =• 2 TO XI : WWS - XIS(W) 

8730 IF WIS = WWS OR WIS = THEN XISIW) = XISIM * 
1):HI$ = 

37^0 IF WWS < > " THEN NEXT W 
8750 IF WIS = "" THEN RETURN 

3760 WMESS = -02EAnofnalle Index 1, " * WZS(3,2) * ' 

Introuvable" 
8770 POP : GOTO 9000 
8800 REM Suppression Index 2 
8820 FOR W = 1 TO X2:WW$ - X2S(W) 

6630 IF WIS = WWS OR WIS = "" THEN X2S (W) = X2S(W + 
1):WIS - 

8810 IF WWS < > -- THEN NEXT W 
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8SS0 IF WIS - "- THEN RBTOBN 

SS60 HMESS = "02EAnomalle Index 2. • * t/ZS(3,3S * " 

Intrauv^le' 
6870 POP ,- GOTO 9000 

8900 REM Poke des 

valeurs index^es 
8910 FOR J = J TO IIS.-W = ASC ( MID5 (MZS 12,2) .J.H > : 

IF » < 32 OR W > 
1 22 THEN M = 32 
8920 POKE VG * CH t J.H: NEXT : RETURN 
8930 FOR J ^ 1 TO I2t:H = ASC f MWS (»Z$ 12, 3) , J,l) I : 

IF W < 32 OR W > 
1 22 THEN H = 32 
S9tQ POKE VG + Cl% t Uf + J,W: NEXT : RETURN 
6970 VTAB 29: PQM iiQ3,g: - §§§: Pfijftfl tS^S^j : 

RETURN 

9000 REM TAG Point 

d'aboutlssement g6n6ral 
9020 AARG5 - t/ARGf: IF MIDS (M4ES$,3,1) - -A' GOTO 

1000 
9030 GOTO 1300 

9100 REM TAG — — 

TraitemenC Erreurs 
9130 POKE 21S,0:WW - PEEK (222) -.M ^ PEEK 12191 '256 

+ PEEK 1218) 
9120 ONERR GOTO 91O0 
9130 IF ^ 2 OP >fW = 5 GOTO 4300 

9H0 UMESS = "OlEErceur ProDOS " * STRS (»W) * • ligne 

• ^ STFS fWJ 
9170 GOTO 1000 

9300 REM Texce de 

1 'Aide inCigrfe 
9400 DATA 'Entegistrement d'un Livre : cholslr un 

niim6i:o iJbre" 
9410 DATA "et rempiir les zones TITPE, AUTEUR et 

COLLECTION. ' 

9430 DATA , "Madificatlan d'un Llvce : appeler ce 
Jlvre par' 

9440 DATA 'son numSro et effectuer les corrections 
n4cessalr:es . ' 

9460 DATA ."Suppression d'un Livre : appeier ce livre 
par' 

9470 DATA 'son numSro. Taper OUT dans la zone de 

suppression en bas' 
9480 DATA 'd'icr^n et presser TF3 pour diclencher la 

suppression . ' 

9500 DATA ,'Le flchier BlbllocMqua est IndexS sur Je 
TITTIE et sur' 

9510 DATA 'le NOM D' AUTEUR. Toute intervention sur 
1 'un de ces' 

9520 DATA 'chaafis provoque une mlse A jour de 1 'Index 

concern^ et' 
9530 DATA 'sa rS-Scrlture sur dlsque.- 
9550 DATA ,'En revanche, une consultation se llmite A 

la lecture- 
9560 DATA 'des donn6es sur le disQue.' 
96O0 DATA , . , 'Sappel : ' 

9620 DATA - Les Touches de Fonctians consistent en 
la- 

9630 DATA 'carhinalson Pontoe-Ouverte et louche 

numirlquB Indlquie.' 
9640 DATA ,' - Une conversion slgne-chlffre est 

incoipor^e au programn 
a. ' 

9650 DATA •• 



BIBU020 

10 REM 'f'f^-fr'Kfrttttttr*rt*KI'litttattt1rlr*1r*1t1nHrlr1iaait 

20 REM ' BIBLI020 - LISTS NUMEPIQUE DU FICHIER 

BIBLIOTHEQUE ' 
30 REM ' Aateur : P~J Anderson * 
to REM ••••■•'♦•"•"•■•••••••*«*nmi*«*«««i>itiininii« 

50 JIEM 

100 TEXT : NORMAL : CLEAR :DS - CHRS (4) 
110 ONERR GOTO 9100 



120 PCS - -BIBLI020-: FOR W = 1 TO 80:WBS = HBf + ■ -.- 
NEXT W 

130 m = 7; DIM BWSfMtfJ : REM Ncunbre de lignes en-tite 
140 UZ ^ 1: REM DIM WZS(2,HZI : REM 

Nanit>.d'416m.caifxisant I'argument 
160 hW = S; FOP M ^ 1 TO WU:LVS = LVS * 'O'-.HVS = HVS * 

-9-! NEXT 

180 cut = 3:CL = hN.-Cif = 2]:VG = 76S:F1S = "BIBLIO- 

200 REM Salsie des valeurs sur Record-Z6ro 

et de la Date 
210 PRINT D$'OPEN'/Fl$: PRINT D9 -READ-; FIS 
220 INPUT Fl, at, Fli: PRINT DS'CL0SE-;F1S 
230 PRINT DS;W = INT f PEEK 149041) / 2) :MDS - STRS 

m 

as tlB$ = ^ISHTS f"S" t STRS (( PEEK (imii - W ^ I) 

• a * INT ( PEEK 
(49040) / 32)), 2) * V* + WDS 
250 WDS - RIGHTS CO- f STRS ( PEEK (49040) - INT ( 
PEEK 149040) / 32 
) ' 32), 2) t ■/- * m$ 
270 WU = PEEK (768j:mJS = 'Interro': IF HU > 2 THEN 
mJS - -MA J' 

300 REM Definition Ecran et 

depart Balayage 
310 TIS = 'LISTE WtSnefilOUE DU FICHIER BIBLIOTHEQUE' 
330 m - (64 - LEN (TIS)) / 2:m ^ (6i - LEN (TISI) - 

(Mt ' 2) 

340 TIS = LEFTS IWB5,»i) * TIS * LEFTS (HBS.Ht t- MM) 
350 MNSd) = ■■2TF -> 2^Menu 4-FJn 5-" * UUS t - 
7'Llste/Titres 

S^Llste/Auteurs 9'Mots-cl4- 
360 MNS(2) = V: FOR U = 1 TO B0:MNS(2) - MN$(2) + 
NEXT 

370 MN$(3) - -2' * MDS * TIS * PGS 
3S0 WNS(4) ^ -2 - 

390 WNS!5) - '2N° TJtre du Livre 

flute 

ur Collection " 
4O0 WNS(6) = -2 



410 HN?(7) " -Wumdro du Livre -> ' 

430 MS ' •": FOR M ^ 1 TO C3t.-WS ^ MS * CHRS I PEEK 

IVG * W)> : NEXT 
470 MZSd,!) " -2320033- :WZS (2,1) = WS:MARGS ' MS 
480 Rl = WU. (MARGS) : IF Rl < 1 THEN Rl = I 
540 MX - 0:PA = 24 - (MN -t 3) ;WD - 0: REM si 

Bal .inin6dlat, 1 sinon 
SBO DIM TAS (PA -I 1) : IF WD > THEN MX ^ PA * 1 
940 PRINT DS-OPEN";F]S;-,L'Flt: PRINT DS 
980 WF = VAL r LEFTS (HVS,Clt) > :?IQ - WF 
985 MF - 250:MQ - WF 

1000 HOME : REM TAG Polnt-retour 

de Llste-Ecran 
1150 FOR M ' 1 TO WN - 1: IF LEFTS IMNS(M),1) > '4- 

THEN POKE 50,63 
1180 VTAB W: PRINT RIGHTS (WNSiM), LEN (MNS IM) ) - 1): 

POKE 50,255 

1190 NEXT : VTAB 22: POKE 1403,0: PRINT RIGHTS 
(WSi2),30); 

1300 REM _______ Boucle de 

lecture du Flchier 
1350 IF KFt = I GOTO 3000 

1400 M ^ Rl: FOR Rl - M TO MQ: IF WX > PA GOTO 3000 
1430 PRINT DS-READ-:F1S:-,R':R1: INPUT RIS: PRINT DS 
1450 IF LEN (RIS) < 1 OR MIDS (RIS, 2, 10) = LEFTS 

(MBS, 10) GOTO 2000 
1480 WARGS = RIGHTS (LVS + STRS (Rl),CHj 
15O0 MX ^ MX r l:TAStMX) = HARES: VTAB MX + MN - 1: 
POKE 1403, 

1510 PRINT WARGS;- '; MIDS (RIS, 1,401- - MIDS 

(RIS, 41, 21)- -; 
1530 PRINT MIDS (RIS, 66. 13); 
2000 NEXT Rl 

2700 MFt = 1:WQ ^ VAL (MARGS) 

3000 R£M Fin 

de Page-Ecran 
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3020 IF WF% - J AND ta < 1 THEN VTUB WX t SOI -I Z: 

PBINT 'Pas d'onregls 
trement apr6s ce numSco'; 
3050 VTAB 23: POKE 1403,0: PRINT WNS f fiWJ ; KMGS,- : GOSUB 

8200 

3070 AARGS - flARGS :WZS (!, 1> = WARCS:CH = WX + MJ - J 
3100 REM salsle nouvel 

argument et Zooming 
3110 WO = i.-W05 = -■;(*( = 1*1+1; IF MM > HZ THEN Wf - 

1 

3120 IF m < 1 THEN «M ^ WZ 

3130 HENTS - - - * WZ$(2,m) * ' -.'WT - VAL f MID? 

IHZSn,»1),7,ll) 
3140 WV = VAL ( MID? IWZS (l,mi , 1, 2) ) : VTAB WV:CU = WV 
3ieO WW = VAL ( (WZS(1,UM),3,2>) - 2 

3170 WL ' VAL ! MIDS (WZS tl ,HM) ,5,2) ) 
3200 IF no < 1 THEN WO = 1 

3210 HO = WO t 1 : IF (MO - 1) > WL GOTO 3900 
3220 POKE 50,63: GOSUB SSOO 

3230 MAIT 49152,128: POKE 49168, 0:WK - PEEK 149152) 

32iO VTAB 24: POKE 1403,0: CALL - 868: VTAB W 

3250 IF CU < CH THEN VTAB CU: POKE 1403,011: PRINT 

3260 IF NOT (MK ^ 10 OF MK ^ 11) GOTO 3330 
3210 IF HX < 1 AND MFi = 1 GOTO 3230: REM no zee 
displayed 

3290 IF m ^ 10 THEN CU = CU * 1: IF CU > CM THEN CU = 
WV: GOTO 3230 

3300 IF WK = 11 THEN CU ^ CU - 1 : IF CU < CL THEN CU - 
CL 

3310 IF flK = 11 THEN IF CU > CH THEN CU = CH 
3320 VTAB CU: POKE 1403, CUi: POKE 50,63: PRINT •§-; : 
POKE 50,255: GOTO 
3230 

3330 IF WK ' 24 THEN WARG$ - "OOJ"; GOTO 3050 
3340 IF UT ' 2 AND WK > 96 AND WK < 123 THEN WK - WK - 
32 

3350 WKS - CHRS IWK) : IF PEEK (49249) > 127 THEN WOS 
- WKS 

3370 IF WK 9 OR WK - 13 THEN GOSUB 3800: GOTO 3900 

3380 IF = "" THEN CU - WV 

3400 IF WK 21 THEN GOSUB 3800: GOTO 3200 

3410 IF WK ' 8 THEN GOSUB 3S00:WO ^ WO - 2: GOTO 3200 

3130 IF WK < > 27 GOTO 3480 

3440 IF WT < 5 THEN POKE 1403, WH * 1: PRINT 

WZS (2, WMj ; 
3450 - WM - 2: GOTO 3100 

3480 IF WK 127 THEN WENT^ = LEFTS f (VENTS, WO - 1) * 
FIGHTS (WENTS,WL 

-t 2 - WOl -t • •: POKE 1403,WH! PRINT WENTSj ! GOTO 
3220 

3500 IF WOS < > "' GOTO 3900 

3520 IF frr " 3 AND (WK < 47 OF WK > 57) GOTO 3230 
3550 WESTS - LEFTS (WENT$,WO - 1) * WKS * RIGHTS 

(WENTS.WL * 2 - WO) 
3560 GOSUB 3800: GOTO 3200 

3800 VTAB WV: POKE 1403, WH * WO - 1 : PRINT MIDS 

(WENTS, W0,1); 
3830 POKE 50,255: RETURN 

3900 WZS(2,WM) = MID5 (WES.^.WL;.- IF WOS - "AND WK < 

> 13 GOTO 3100 
3920 HARGS = WZS(2,»i):Rl = VAL (WARGS) 
3940 IF Fl < 1 OR Rl > WF THEN (iMESS = "Argument 

erron6-: GOTO 8500 
3950 GOSUB 8200:WPS = IF WOS = GOTO 5000 
4000 REM resC des 

Touches de Fanctlon 
4300 IF WOS - '2' OR WK = 123 THEN WPS = 'BIBLIOOO" 
4450 IF was = -4' OF WK ^ 039 THEN UPS - "BIBLrEOJ- 
4460 IF WOS - "5" OR WK = 040 THEN WPS = 'BIBLIOlO' 
4470 IF WOS - "7- OB WK = 125 THEN WPS - 'BIBLI030" 
4480 IF WOS = -a- OF WK - 033 THEN WPS = -01311040- 
4490 IF WOS = '9' OF WK ^ 092 THEN WPS = •aiBLI050" 
4620 IF WPS = "" THEN WMESS = "louche de Fonctlon 

inactive': GOTO 8500 
4800 PRINT DS"CL0SE";F1S: PRINT DS 
4830 y04ESS - "Un InsCarK, svp. . . " 



4850 VTAB 24: POKE 1403.0: CALL - 868: PRINT WMESS; 
4870 PRINT DS;'FUN';HPS: END 

5000 REM TAG Point 

terminal de Boucle 
5030 IF CU ^ WV GOTO 5250 

5040 CU ^ CU - WN * l:mRGS = TAS (CU) : GOSUB 8200 
5050 fMESS = WARGS * ' s41ect^ . " :WPS = -BIBLIOlO": GOTO 
4800 

5250 IF HFt ' 1 AND WARGS < - AARGS THEN AAFGS = 

WARGS :WFt = 
5270 WX - 0: GOTO 1000 

8200 FOR W " 1 TO Cli: POKE VG + W, ASC I MIDS 

IWAFGS,W, 1)): NEXT 
8220 RETURN 

8500 VTAB 24: POKE 1403,0: PRINT WMESS; : GOTO 3100 
9100 POKE 216,0:WW - PEEK (222) :W - PEEK (219) • 256 

t PEEK (218) 
9110 ONBRF GOTO 9100 
9120 IF WW ^ 2 OF WW ^ 5 GOTO 2700 

9190 VTAB 24: POKE 1403,0: PRINT 'Err. ";WW;" L. ":W 
9200 GOTO 3100 

BIBU030 

10 REM •in*««"»ii««in-*»*»""*"«*»«*'*'"-»"***"'*" 
20 REM ' BIBLI030 - LISTE DU FICHIBR BIBLIOTHEQUE 

PAR TITRES ' 
30 REM ' Auteur : FJ Anderson ' 
40 FEM i>.*«ii-n»»*««*«* — ••■•«»■«'•■•*»•"»■""■**•■•*""■"■ 

50 REM 

100 TEXT : NORMAL : CLEAF :DS = CHRS (4) 
120 PGS - "BIBLI030": FOR W ^ 1 TO 80:WB$ - WBS * ~ ': 
NEXT W 

130 WN ' 7: DIM W/SrWJJ ; REM Nambre de llgnes en-t^te 
140 WZ ' 1: FEM DIM WZS(2,WZ): REM 

Narij.d'mm.camposant le czitkee 
leO FOR W ' 1 TO 9:LVS = LVS * "0":HVS = HVS * "9": 

NEXT 

180 cut ' 40:CL = WN;CH = 21:VG " 768:F1S - 

•BIBLIO' :WF\ = 
200 REM Salsle des valeiirs sur Fecord-Z6ro 

et de Date 
210 PFINT DS"CIPEN";F1S: PRINT DS'FEAD';F1S 
220 INPUT Fl,Cl*,Flt,Il,Il%.Xl : PRINT DS'CLOSE'.-FIS 
230 PFINT OS:W = INT f PEEK (49041) / 2) :WDS = STRS 

(W) 

240 was = RIGHTS CO' * STRS (( PEEK 149041) - W ' 2) 
• 8 -> INT I PEEK 
(49040) / 32)), 2) * '/" ' WDS 
250 WDS = RIGHTS ('0' + STFS ( PEEK (49O40) - INT f 
PEEK (49040) / 32 
) ' 32), 21 r -/' * UDS 
270 WU = PEEK (768) :WUS = 'Interro": IF WU > 2 THEN 
WUS = "MflJ" 

300 REM — Definition de 

I'en-tete de I'Ecran 
310 TIS - "LISTE DU FICHIER BIBLIOTHEQUE PAR TITFES' 
330 Wl = (64 - f LEN (TIS))) / 2:WW = (S4 - LEN (TlS)j 

- (Wt * 2) 

340 TIS = LEFTS (WHS, WtJ f TIS f LEFTS (WBS.Wi + 
WW) :WS = "" 

350 WNSfl) = '2TF -> 2=Menu 4^Fln 5=' + WUS * ' 

6-Llste/N° 8=L1 

ste/AuCeurs 9'-Mots-clS' 
360 WNS(2) = "2-: FOR W = I TO B0iWNS(2) - WWSf2) + "- 

"; NEXT 

370 hNSO; - '2' * WDS ' TIS * PGS 
380 mS(4) ^ -2 ' 

390 WNS(5) = '2 Tltre du LIvre 

N° Auteur 

Collection ' 

400 WNS(6) - "2 



4J0 WNS(7) - 'Tltre du Llvre -> ' 

450 FOR W = 1 TO Ili:WS = WS + CHRS ( PEEK (VG -t CIS 
t W)) : NEXT 
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470 WZSn.ll = •Z319402':«ZS(2,1) = WS;KflBGS - t/S 

500 REM Autres d4finlcSons et 

Depart baiayage 
540 tat = 0:PA = 24 - (Mi * 3) :WD - 0: REM si 

Bal , lim6dlat, 1 slnon 
580 DIM TA$(PA * !): IF »D > THEN MX ^ PA * WD 
930 PFINT DS"OPEtJ";Fl?;',L';Flt: PRINT Df 
940 IIS = F!S t -Xl-iMlS " '/RAM/- * IIS: DIM XJS(Xi * 

IJ 

950 PRINT DS'0PEN";M15: PRINT DS'REAO'jMIS 
960 FOR « = i TO XI: INPUT XI S (Wl : NEXT 
970 PRINT DS 'CLOSE •;»]$: PRINT DS 
980 «F - ML f LEFTS lUVS.Cli) i :tlQ = W 
985 WF = 250:HQ - WF 

1000 HCME : REM TAG _____ PoJnt-retour 

IISO FOB W ^ 1 TO WN - 1: IF LEFTS lUNSWhH > 

THEN POKE 50, £3 
2180 VTAB W; PRINT RIGHTS fmSlK), LEN (mSIW) - 11: 

POKE 50,255 

1190 NEXT : VTAB 22: POKE 1103,0: PRINT RIGHTS 
lmSt21,S0)J 

1300 REM Boucle de 

leccuze du Flchler 
1320 IF HFt = I GOTO 3000 
1350 FOR H ^ 3 TO XI 

1360 IF UARGS < = LEFTS (XISIM) ,Ili) OS XISIW) - 

GOTO 1400 
1370 NEXT W 

1400 IFXlSim = " GOTO 2700 
1410 IF «X > PA GOTO 3000 

1420 WS - RIGHTS (XIS (W) ,C1%) :R1 = VAL (HSI 

1430 PRINT OS'(IEAO';F1S;',R';R1: INPUT RIS: PRINT DS 

1450 IF LEN (RISI < J OR MIDS (RIS, 2, 10) - LEFTS 

tmS.lQ) GOTO 2000 
1470 HARGS = MIDS IRIS, II, 11%) :»X - WX * 1:TASIWX) - 
US 

1500 VTAB m t IfIN - 1: POKE 1403, 

ISIO PRINT HARGS;' -,-W5,-" 'MIDS IRIS, 41, 21)' 'MIDS 

!R1 S, 66, 1 3) : 
2000 W = W t I; GOTO 1400 
2700 UF% = I 

3000 REM _________ fin 

Page-EcTsn 

3010 IF WX < 1 AND WF* = I THEN VTAB »X * WN f 2: 

PRINT 'Pas d'Bnregls 
eremenc i partlc de ce Tltre'; 
3040 FOR VI =^ 1 TO lit: POKE VG * Clt t- W, ASC I MIDS 

IUABGS,W,1)) : NEXT 

3050 VTAB 23: P(S(E 1403,0: PRINT tiNS IWNJ : tiARGS; : GOSUB 
8200 

3070 AARCS ' KARGS :»ZS 12, 1) - >/ARGS:CH ^ UX -> UN - 1 

3100 REM SalslB du nouvel argument 

et Zoanlng 

3110 WO - J .-WOS = ":VM = WW * 1 : IF HM > WZ THEN WM = 
I 

3220 IF »M < 1 THEN WM = Z 

3130 WEWTS = - - + WZSI2,UMI ' ' -/WT = VAL I MIDS 

(HZS n,m.7.ii) 

3140 WV = VAL f MIDS (WZS tl,*IM) , 1 , 2} ) : VTAB WV.-CO - WV 
3160 m = VAL I MIDS IVZS!l,m) .3,2)) - 2 
3170 WL = VAL ! MIDS !»ZS ll.mi , 5. 2) ) 
3200 IF WO < 1 THEN UO 1 

3210 WO ~ m * 1: IF (WO ~ 1) > WL GOTO 3900 
3220 POKE 50,63: GOSUB 3900 

3230 WAIT 49152,128: POKE 49168, 0:WK = PEEK (491521 

3240 VTAB 24: POKE 1403, 0: CALL - 868: VTAB WV 

3250 IF CU < = CH THEN VTAB CU: POKE 1403, COt: PRINT 

3260 IF NOT (WK = 10 OR WK = 11} GOTO 3330 
3270 IF WX < 1 AND WF% - J GOTO 3230 

3290 IF WC = 10 THEN CU ^ CU t 1 : IF CU > CH THEN CU = 
WV: GOTO 3230 

3300 IF WK = 11 THEN CU ^ CU - 1 : IF CU < CL THEN CU - 
CL 

3310 IF WK - 11 THEN IF CU > CB THEN CU - CH 



3320 VTAB CU: POKE 1403, CUi: POKE 50,63: PRINT '§'; : 
POKE 50,255: GOTO 
3230 

3330 IF WK = 24 THEN WARGS - LEFTS IWBS,HL) :WFk = 0: 
GOTO 3050 

3340 IF WT - 2 AND WK > 9€ AND WK < 123 THEN WK ^ WK - 
32 

3350 WKS = CHRS (WK) : IF PEEK (49249) > 127 THEN WOS 
- WKS 

3370 IF WK ^ 9 OR UK 13 THEN GOSUB 3800: GOTO 3900 

3380 IF WOS = " THEN CU = HV 

3400 IF WK 21 THEN GOSUB 3B00: GOTO 3200 

3410 IF WK ^ S THEN GOSUB 380.0:WO = WO - 2: GOTO 3200 

3430 IF WK < > 27 GOTO 3480 

3440 IF WT < 7 THEN POKE 1403, WH t 1: PRINT 
3450 WM ^ WM - 2: GOTO 3100 

3480 IF WK ^ 127 THEN WENTS = LEFTS IWENTS,HO - 1) * 
RIGHTS (WENTS, WL 

* 2 - WO) + ' ': POKE 1403, WH: PRINT WENTS;: GOTO 
3220 

3500 IF was < > " GOTO 3900 

3520 IF WT ^ 3 AND (WK < 47 OR WK > 57) GOTO 3230 
3550 WENTS - LEFTS (WENTS, WO - 1) i WKS + RIGHTS 

f WENTS, WL * 2 - WO) 
3560 GOSUB 3800: GOTO 3200 

3800 VTAB WV: POKE 1403, WH t WO - 1: PRINT MIDS 

(WENTS, HO,I); 
3830 POKE 50,255: RETURN 

3900 WZS(2,HM) - MIDS (W£S.2,WL): IF WOS ' " AND WK < 

> 13 GOTO 3100 
3920 WARGS = »ZS(2,m) 

3940 IF WARGS = "" THEN WESS = -Argument srroni": 

GOTO 8500 
3950 WPS ": IF WOS = GOTO 5000 
4000 REM Test des 

Touches de Fonctlon 
4100 UMESS = 'Un Instant, svp...' 

4300 IF was ~ '2' OR Wf = 123 THEN WPS = *aiSirODO" 
4450 IF WOS = '4" OR WK ^ 039 THEN WPS = 'BIBLIEOJ' 
4460 IF WOS - *5- OR WK ^ 040 THEN WPS - 'BIBLTOIO' 
4470 IF WOS = "6' OR WK = 093 THEN WPS = 'BIBLI020' 
4480 IF WOS - "9" Oi? WK = 033 THEN WPS = 'BIBLI040" 
4490 IF WOS = '9' OR WK ^ 092 THEN WPS = 'BIBLIO50" 
4550 IF WPS = THEW M4ESS = 'Touche de Fonctlon 

Inactive": GOTO 8500 
4800 PRINT DS'CL0SE';F1S: PRINT DS 

4810 VTAB 24: POKE 1403,0: CALL - 868: PRINT tMESS; 
4820 PRINT DS'BUN';WPS: PRINT DS: END 

5000 REM TAG Point 

terminaJ de Boucle 
5030 IF CU = WV GOTO 5250 

5040 CU " CU - KJ t 1 :WS = TAS(CU) ; GOSUB 8200 
5050 WMESS = WS + ' s61ect6':WPS = 'BIBLIOlO': GOTO 
4B00 

5250 IF WFt = 1 AlO) WARGS < = AARGS THEN AARBS = 

WARGS; WFI - 
5270 WX - 0: GOTO 1000 

S200 FOR W - 1 TO Clt: POKE VG + W, ASC ( MIDS 

(WS,W,1)): NEXT 
8220 RETURN 

8500 VTAB 24: POKE 1403,0: PRINT (*ESS,- ; GOTO 3J00 
91 OO REM 

Handling errors 
9110 POKE 216,0 :WW ' PEEK (222):W= PEEK (219) * 256 

+ PFEff (2181 
9120 ONBRB GOTO 9100 

9150 IF WW ^ 2 OR WW ^ 5 THEN HOME : PRINT 'PROBLEME 
INDEX': END 

9190 VTAB 24: PRINT "Err. ';WW;' L. •;W: END 



BIBU040 

10 REM ***'***fi"iiiii'rr9iin-a*i-***tir*tf*tl'tfl'tif*tnriH 
20 REM ' BIBLI040 - LISTE DU FICHIER BIBLIOTHEOUE 
PAR AUTEURS ' 
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30 REM ' flutsur ; B-J Anderson ' 
50 REM 

100 TEXT : NOSMAL ; CLEAR :D$ = CHRS (4 1 
120 PGS - •BIBLlOtO': FOR U = 1 TO 80:m$ = MBS * " 
NEW W 

130 HN = 7; DIM HNSfWNj : REM Nombre de llgnes en-tdte 
140 UZ ~ 1: REM DIM WZ$I2,WZ): REM 

Womb.d'iJ&n.canyicsant Je cricdre 
160 FOR W " 1 TO 9rLVS = LVS * "O-.-HVS = HVS * -9"; 

NEXT 

JHO CUI = 25:CL = hW:CW = 21:va = 7£S:F1$ - 

'fllflLIO-.-WFI = 
200 fi£H saisJe des waJeurs sur fiecord-2^ro 

et de Date 
2J0 PRINT DS'0PEN:-FIS: PRINT DS"READ';F1$ 
220 INPUT Fl.Clt,Flt,n, lit, XI, 12,12%, X2: PRINT 

DS-CL0SE";F1S 

230 PRINT DS:W = INT ! PEEK IS9041) / 2) :»DS = STRS 

m 

240 mS = RIGHTS I'O- t STRS !( PEEK 149041) - W • 2) 

' 8 * INT f PEEK 
149040) / 32)), 2) ' •/- * WDS 
250 WDS ^ RIGHTS CO' + STRS ( PEEK 149040) - INT t 

PEEK (49040) / 32 

J » iiiJJ ; =;= + iSs 

270 mj = PEEK nSBj :WUS = "inCerro": IF mj > 2 THEN 
WU$ = "MAJ- 

300 REM — ■ Definition de 

1 'en-tete de 1 'Ecran 
310 TIS = 'LISTE DU FICHIER BIBLJOTHEQUB PAR AtlTEURS- 
330 Wl = 164 - ( LEN (TIS))) / 2:HW = (64 - LEN (TIS)) 

- m ' 2) 

340 TIS = LEFTS (KBS.Ht) * TIS f LEFTS fffflS.tfl + 
«U) :WS = "" 

350 UNSd) = -> 2^nu 4^Fln 5-- * MJS * • 

S=Llste/N° 7=tl 

ste/Tl tres 9^4*its-cl6- 
360 HNS(2) - "2-: FOR H = 1 TO 80:mS(2) = mS(2j * "- 
NEXT 

370 WNS(3I = -t WnS <■ TJS ' PGS 

330 UNS(4) ^ -2 • 

390 WNS(5) - "2 fluteur W 

Titre du LI 

vre Sujet" 
AOO HNSI6) - -2 



410 MNS(7) = -Nam de I 'fluteur -> " 

450 FOR W = 3 ro I2i:>IS = US ^ CURS ( PEEK (VG * Clt 
* Hi * W)) : NEXT 

470 UZSd.l) = -2320252' :UZS (2,1) = UHUARGS = US 

500 REM Autres definitions ec 

D4pa[t balayage 
540 WX - 0:PA ^ 24 - (UN * 3) :«D = 0: REM si 

Bal.iirmidlat, I sinon 

580 DIM TASlPA * 1) : IF UD > THEN WX - FA * WD 
930 PRINT DS"0PEN-;F!S;'.L-;F1%: PRINT DS 
940 I2S = FIS + •X2":M2S = '/RAM/" ' I2S: DIM X2SIX2 * 
1) 

950 PRINT D$-aeEN";M2S: PRINT DS-READ";MZS 
960 FOR W = I TO X2: INPUT X2S(Wj : NEXT 
970 PRINT DS"CL0SE-:M2S: PRINT DS 
9B0 WF = VAL ( LEFTS (HVS,Clt) ) :WQ = WF 
985 WF - 250:WO = WF 

1000 HOME : REM TAG Polnt-retoui 

de Llste-Ecran 
1150 FOR » = 1 TO UN ~ 1: IF LEFTS (miS(W).!) > -4- 

THEN POKE 50, 63 
1180 VTA3 V. PRINT RIGHTS tWNS (W) , LEN (WNS (W) ) - 1): 

POKE 50,255 

1190 NEXT : VTAB 22: POKE 1403.0: PRINT RIGHTS 
(WNS (2) , 801 ; 

1300 REM Boucle de 

lecture du Flchler 
1320 IF WFt = I GOTO 3000 



1350 FOR W = 1 TO X2 

1360 IF WARCS < - LEFTS (X2S(V) ,I2t} OR X2S(Wj = " 

GOTO 1400 
1370 NEXT If 

1400 IF X2SIW) = — GOTO 2700 
1410 IF WX > PA GOTO 3000 

1420 WS = RIGHTS (X2S (W) ,Cli) : Rl = VAL fWS) 

1430 PRINT DS'READ'.-F}S;',R~;R1 : INPUT RIS: PRINT DS 

1450 IF LEN (RIS) < 1 OR MIDS IRIS, 2, 10) = LEFTS 

IWBS,10) GOTO 2000 
1470 WARGS = MIDS IRIS, 12, 12%) -.WX = WX 1:TASIWX) = 

WS 

1500 VTAB WX f HN - 1: POKE 1403,0:W>/S = ' • 
1520 IF MIDS (RIS, 86,20) < > LEFTS (WBS,20) THEN 
WWS = " OUl- 

1530 PRINT WARGS;' "/WS; " "MIDS IRIS, 1,40)' 'iHWS 
2000 W " W t 1: GOTO 1400 
2700 WF% - 1 

3000 REM ____ de 

Page-Ecran 

3010 IF WX < 1 AND UTt = 1 THEN VTAB WX * WN + 2 : 

PRINT 'Pas d'eniregis 
trement apzis cet Auteur"; 
3040 FOR W ^ 1 TO 12%: POKE VG * Clt t lit -t W, A5C I 

MIDS It/ARGS.W.l)) 

: NEXT 

30SO VTAB 23: P(XE 1403,0: PRINT WNS (WN) /WARGS; : GOSUB 
8200 

3070 AARGS - WARGS :WZS 12,1) = HARGS:CH = WX * WN - 1 

3100 REM -— — — Salsle du nouvel argument 

et Zooming 

3110 WO = 1:W0S - "".-Mf = WW + J; IF HW > WZ THEN WM - 

1 

3120 IF WM < 1 THEN WM ^ Z 

3130 WENTS = • ' -t HZS(2,WM) ' ' ':WT = VAL I MIDS 

!WZSIl,m),J, 1)1 
3140 WV - VAL I MIDS IWZS ll.WM) ,1, 2) ) : VTAB WV;aj = WV 
3160 WH ^ VAL (MIDS l»ZS II .WM) , 3,2) ) -2 
32 70 WL = VAL (MIDS (WZS (1 .Wi) , 5. 2) ) 
3200 IF WO < 1 THEN WO - J 

3210 WO = WO * J; IF two - 1) > WL GOTO 3900 
3220 POKE 50.63: GOSUB 3800 

3230 WAIT 49152,128: POKE 49168, 0:WK^ PEEK (49152) 

3240 VTAB 24: POKE 1403,0: CALL - 868: VTAB WV 

3250 IF CU < = CH THEN VTAB CU: POKE 1403, CUt: PRINT 

m H < 

3£ao ££- rfi fmv - lo an rm — 11/ uoro 333a 
3270 IF WX < 1 AND WF% - I GOTO 3230 

3290 IF WK ^ 10 THEN CU ^ CU * 1: IF CU > CH THEN CO = 
WV: GOTO 3230 

3300 IF WK 11 THEN CU = CU - 1: IF CU < CL THEN CU = 
CL 

3310 IF WK ' 11 THEN IF CU > CH THEN CU = CH 
3320 VTAB CU: POKE 1403, CU%: POKE 50,63: PRINT •§•;: 
POKE 50,255: GOTO 
3230 

3330 IF WK ^ 24 THEN WARGS - LEfTS IWBS,WL):WF% = 0: 

GOTO 3050 

3340 IF WT ^ 2 AND WK > 96 AND WK c 123 THEN WK ^ WK - 
32 

3350 WKS = CHRS (WK) : IF PEEK (49249) > 127 THEN WOS 
- WKS 

3370 IF WK - 9 OR WK ^ 13 THEN GOSUB 3800: GOTO 3900 

3380 IF WOS = " THEN CU = WV 

3400 IF WK ^ 21 THEN GOSUB 3800: GOTO 3200 

3410 IF WK = S THEN GOSUB 3800:WO = WO - 2: GOTO 3200 

3430 IF WK < > 27 0010*3480 

3440 IF WT < 7 TEEN POKE 1403, WH * 1: PRINT 

WIS 12, tB4) ! 
3450 m ^ WM - 2: GOTO 3200 

3430 IF WK = 127 THEN WENTS - LEfTS (WENTS, WO - I) + 
RIGHTS IWENTS,WL 

t 2 - WO) r " -: POKE 1403, WH: PRINT WENTS;: GOTO 
3220 

3500 IF WOS < > "" GOTO 3900 

3520 IF WT = 3 AND (WK < 47 OR WK > 57) GOTO 3230 
3550 WENTS - LEFTS (WENTS, WO - 1) * WKS + RIGHTS 
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(UBNTf.UL + 2 - HO) 
3560 GOSUB 3800: GOTO 3200 

3800 VTAB W: POKE 1403, mi * WO - 2 : PHTNT MIDS 

(USNTS, WO.l); 
3830 POKE 50,255: RETUFN 

3900 WZ$(!,W) = MIDS (WES,2,ilLl : IF WOS = " AKD Wff < 

> 13 GOTO 3100 
3920 WARGS « »ZSI2,mi 

3940 IF mUGS = -- THEN MMESS = "Argument errand": 
GOTO 8500 

3950 WF$ = IF t/OS ' " GOTO 5000 

4000 REM ~ rest ties 

Touches de Fonotlon 
4100 hWES^ - -Un instant, svp..." 



4300 


If WOS 




•2- OP 


HK - 


123 


THEN HPS = 


'BIBLIOOO- 


4450 


IF was 




'4- OR 


Wt - 


039 


THEN WPS ^ 


•BIBLIEOJ' 


4460 


IF M05 




"5" OR 


WK = 


040 


THEN WPS = 


'BIBLIOIO- 


4470 


IF HOS 




'6- OR 


WK = 


093 


THEN WPS - 


•BIBL1Q2Q- 


4480 


IF UOS 




"7- OR 


m< = 


125 


THEN WPS - 


-BIBLI030- 


4490 


IF H0$ 




•9" OR 


MK - 


092 


THEN WPS = 


•3IBLI050' 


4550 


IF Hps 




THEN = 


'Touche de 


Foncclon 



Inactive-: GOTO 3500 
4800 PRINT D?-CLasE';FlS: PRINT DS 

4810 VTAB 24: POKE 1403, 0: CALL - 86B: PRINT W4ESS: 
4820 PRINT DS'BUN-;HPS: PRINT DS: END 

5000 REM TAG — ■ Point 

terminal de Boucle 
5030 IF CU ^ WV GOTO 5250 

5040 CU = CU - WN t 1:W$ = TAS(CU): GOSUB 8200 
5050 UME5S - WS * " s61ect4":WPS = "BIBLI010-: GOTO 
4800 

5250 IF UFt - I AND WARGS < - THEN AABGS - 

(mRGS;WFt = 
5270 WX ^ 0: GOTO 1000 

8200 FOR W = J TO CH: POKE VG * W, ASC I MIDS 

rws, W,l)l: NEXT 
8220 RETURN 

8500 VTAB 24: POKE 1403,0: PRINT WMESS; : GOTO 3100 
91 00 REM — - 

Handling errors 
9110 POKE 216, 0:f/W ^ PEEK (222) :W ^ PEEK (219) -256 

• PEEK 1218) 
9120 ONERR GOTO 9100 

9150 IF WW ^ 2 OR WW = 5 THEN HOME : PRINT "PROBLEME 
INDEX": END 

9190 VTAB 24: PRINT -Err. '.-WW;' L. ':W: END 



BIBU050 

10 REM ft ierr'iHritftlt*rtt1rrictitlrt»*ft*tlr*tttt-tittt*t*A't 

20 REM ' BIBLI050 - RECHERCHE DE MOTS-CLE 5UF LE 

FICHIER BIBLIO ' 
30 REM • Auteur : R-J Anderson •■ 

40 REM ■•«*« I*- «i»it« **it-«-»irr»iF>k-^jt r ]>*irjrrt*>t If * 

50 HEM 

100 TEXT : NORMAL : CLEAR :DS = CURS 14) 
120 PGS = -BIBLI050": FOR W - 1 TO SO:WBS = WBS * ' ": 
■ NEXT H 

130 m - 7: DIM WNSIWN) : REM Nombre de llgnes en-t^Ce 
140 W2 = J; REM DIM WZS!2.WZ): REM 

Na!ib.d'616ni.conposant le crlt^re 
160 FOR M = 1 TO 9:LVS = LVS * '0":HVS = MVS * '9"; 

NEXT 

180 cut = 40:CL = WN:CH = 21:VG - 768:F1S - 

•BIBLIO' :WF% - 
200 REM Salsle des valeurs sur Record- 

Ziro et de la Date 
210 PRINT DS"0PEN';F1S: PPINT DS'READ';F1 S 
220 INPUT Fl,Cl%.Flt,Il.Il%,Xl: PRINT DS-CL0SE';F1$ 
230 PRINT DS:W = IWT f PEEK 149041) / 2) :WDS = STRS 

m 

240 was -= RIGHTS !"0" * STRS If PEEK 149041) - W • 2) 

• 8 + INT ( PEEK 
149040) / 32)), 2) - -/■ * HDS 
250 was - RIGHTS (-0- t STRS I PEEK (49040) - INT I 

PEEK (49040) / 32 



) * 32),2I * '/- * WDS 
270 WU - PEEK 1768) :WUS = •Inc"; IF WU > 2 THEN WUS - 
-MAJ- 

300 REM — Definition de 

1 'en-tete de 1 'Ecran 
310 TIS - 'RECHERCHE DE MOTS-CLE SOR LE FICHIER 

BIBLIOTHEQUE- 

330 W* = (64 - ( LEN (TIS))) / 2:WW - (64 - LEN (TIS)) 
- (Wt • 2) 

340 TIS ' LEFT? (WBS.Wt) + TIS * LEFTS (WaS,Wi ' 
WW) :WS = "" 

350 WNS(l) ' "2TF -> 2=Msnu 4-Eln S=- * WUS * • 

e-'Liste/N' 7=Lis 
te/Titces S^Llste/Auteurs" 
360 WNS(2> ~ '2': FOR W = 1 TO 80:HNS(2j - WNS(2) -> "- 

': NEXT 

370 >INS(3) = -2- ' WDS * TIS * PGS 
380 miS(4) = -2 - 

390 WNS(5) = -2 Titre du Livre 

AuCeur 

Co'iiac'tian ' 

400 WNS(6) = ■? 



4JD HNS(7) = -Mot-cl6 -> " 

470 iizsd.i) = •23i24d2-:WZS(2,V = LEFTS 

(HBS,40) :WARGS = WZSI2,]I 
500 REM AuCres definitions St 

D4pa rt ba lay age 
540 WX = 0:PA 24 - (WN * 3) :WD = J." REM si 

Bal , limt^diat, 1 slnon 
580 DIM TASlPA * I) : IF UD > THEN HX - PA + WD 
930 PRINT DS'OPEN-;FlS;-rL-:Flt: PRINT OS 
940 IIS = FIS * •X1':M1S = "/RAM/- t IIS: DIM XlSfXl * 

1) 

950 PRINT D$"aPEN~;MlS! PRINT DS"READ"JM1S 
960 FOR W = I TO XI: INPUT XIS(W) ; NEXT 
970 PRINT DS "CLOSE"; MIS: PRINT DS 
980 WF ' VAL ( LEFTS (HVS,Clt)} :WQ ^ WF 
985 WF - 250:HQ - MF:WA = 

JDOO WOME .- REM TAG Paint-retouc 

de Llste-Ecran 
1150 FOR W 1 TO HN - 1: IF LEFTS (WNS(W),1) > "4" 

THEN POKE 50,63 
1170 VTAB W: PRINT RIGHTS (ms (W , LEN (WNS(W)) - 1) : 

POKE 50,255 

1180 NEXT : VTAB 22: POKE 1403,0: PRINT RIGHTS 
l»SJS (2). 80); 

1190 VTAB 23i POKE 1403,0: PRINT WNS (WN) ; WARGS; 

1200 REM floucJe de 

lecture du Flchler 
1220 IF WF* =■ I OR Mf > PA GOTO 3000 
1230 WMESS = -Recherche en caurs. . . ".- GOSUB 8500 
1250 WA ^ WA + I: IF WA > XI GOTO 2700 
1270 WIS = XIS(WA) : IF XIS(WA) - "■ GOTO 2700 
1280 FOR W» = 1 TO (Hi - ( LEN (WARGS))) 
1300 WWS - MIDS (WIS, WW. ( LEN (WARGS))) 
1360 IF WARGS = WWS GOTO 1400 
1370 NEXT WW: GOTO 1250 
1400 hWESS - - GOSUB 8500 

I4JD IE WX > PA GOTO 3000: REM Fin de Page-Ecran 
1420 WS = RIGHTS (XIS (WA) ,C1 i) :R1 = VAL (WS) 
1430 PRINT DS"liEAD";FlS;",R";Rl: INPUTRIS: PRINT OS 
1450 IF LEN (RIS) < 1 OR MIDS (R1S,2,10) - LEFTS 

(WBS, 10) GOTO 2000 
1470 WX ^ WX t 1:TAS(WX) = WS 
1500 VTAB WX * WN - 1 : POKE 1403,0 
1510 PRINT LEFTS (R1S,40);" •;WS;" ': MIDS 

(Rl$,41,21)" " MID$ (R1S,66 

,13)1 
2000 GOTO 1250 

2700 HFi " 3.-hWESS = " ■; GOSUB 8500 

3000 REM — ■■ — ~- — — ~— — Fin de 

Page-Ecran 

3010 IF WX < 1 AND KF» = I THEN VTAB WX -f WN t 2 : 
PRINT 'Pas de titre 
pour ce inot-cl4- 
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3050 VTAB 23: POKE 1403,0: PRINT HNf(WNI;fiASG$; : REM 

cosm ezoo 

3060 IF mC > AND UA > THEN WESS = 'Recharche 
tenul/ide. "; GOSUB 850 


3070 AARGS ' NARGf :W2S !2, 1 ) = H/iRa$:CH ^ HX -• WN - 1 
3080 IF LEN /WZ5!2,1>) < 40 THE31 UZSIl.l) ' WZS(2.1) 
+ LEFTS (UBS, 10 - 
LEN (HARG$)) 

3100 REM Salsle du nouvel argument 

et Zoaning 

3110 t/0 - 1:H0$ - -".-RW ^ MW t 1: IF m > t/Z THEN m - 
1 

3120 IF K4 < 1 THEN HM ^ Z 

3130 WENTS - - - ♦ WZSI2,ml * ' ".-WT - VAL t MIDS 

3140 WV VAL (MIDS fHZSIl.UM) , 1.2) I : VTAB WV:CU ^ WV 
3160 WH ^ VAL I MIDS tWZStl.«M),3,2)) -2 
3170 UL = VAL f MIDS fUZSH.mi ,5.2) ) 
3200 IF HO < 1 THEN WO - 1 

323 WO = WD + I : IF (HO - 1) > WL GOTO 3900 
3220 POKE 50,63: GOSUB 3800 

3230 miT 49152,128: POKE 49168, 0:WK = PEEK 149152} 

3240 VTAB 24: POKE 1403, 0: CALL - 868: VTAB WV 

3250 IF CU < = CH THEN VTAB CU: POKE 1403, CU%: PRINT 

3260 IF NOT (WK " 10 OB tIK ^ 11) GOTO 3330 
3270 IF MX < 1 AND WFt = 1 GOTO 3230 

3290 IF UK ^ 10 THEN CU ^ CU t 1: IF CU > CH THEN CU = 
WV; GOTO 3230 

3300 IF UK - ]J THEN CU ^ CU - 1: IF CU < CL THEN CU = 
CL 

3310 IF m = 11 THEN IF CU > CH THEN CU - CH 
3320 VTAB CU: POKE 1403, CU%: POKE 50,63: PRINT "S"; : 
POKE 50,255: GOTO 
3230 

3330 IF UK = 24 THEN WARGS - LEFTS IWBS.WL) :HF% = 0; 
GOTO 3050 

3340 IF WT ^ 2 AND UK > 96 AND UK < 123 THEN WK = WK - 
32 

3350 WfS ; CHRS IMK) : IF PEEK !49249j > 127 THEN WOS 
= WKS 

3370 IF WK - 9 OR UK = 13 THEN GOSUB 3800: SOTO 3900 

3380 TF H0$ = -- THEN CU = WV 

3400 IF WK = 22 THEN GOSUB 3S00: GOTO 3200 

3410 IF t/K " 8 THEN GOSUB 3800:WO ^ WO - 2: GOTO 3200 

3430 IF WK < > 27 GOTO 3480 

3440 IF HT < 7 THEN POKE 1403, VH * 1: PRINT 

WZS 12. hWJ ; 
3450 HM " fiM - 2: GOTO 3100 

3480 IF m< = 127 THEN UENTS = LETTS IWENTS.HO - 1) t 
RIGHTS (WEWTJ.WL 

* 2 - WOJ * " -.- POKE I<03,WH.- PRINT WBNTS; : GOTO 
3220 

3500 IF UOS < > GOTO 3900 

3520 IF WT ^ 3 AND (WK < 47 OR WK > 57) GOTO 3230 
3550 WENTS = LEFTS (WENTS, WO - 2) + WKS * PIGHTS 

(WENTS, WL * 2 - WOJ 
3560 GOSUB 38O0: GOTO 3200 

3800 VTAB WV: POKE 2403, WH t NO - 2 : PRINT MIDS 

(WENTS, WO.lj; 
3830 POKE 50,255: RETURN 

3900 WZ$(2,W1I = MIDS (ms,2,m.l: IF WS = " AND WK < 

> 13 GOTO 3100 
3910 WARGS - "■; FOR W = J TO LBN (UZS(2,1)) 
3920 WW$ - MIDS (WZS (2. 1) ,W, 2 1 : IF WWS < > ' - THEN 

MARGS - WARGS t WW 
S 

3930 NEXT W 

3950 WPS - •": IF WOS = GOTO 5000 

4000 REM Test des 

Touches de Fonctlon 
4100 l*ffiS5 = -Un Instant, svp. . . " 

4220 IF WOS = "E- THEN PRINT DS"CLOSE- : PRINT DS: END 
4300 IF WOS = '2" OR WK = J23 THEN WPS = ■BIflllOOD" 
4440 IF WOS - "4- OR WK - 039 THEN WPS = "flIBLIEOJ- 
4450 IF WOS = "5- OR WK ^ 040 THEN WPS = "HlfltlOIO* 



4460 IF WOS - -e- OR WK " 093 THEN WPS - 'BIBLI020' 
4470 IF WOS = OR M( = J25 THEN HPS ' •BIBLI030' 

4480 IF WOS ' "fl" OR WK = 033 THEN WPS = "BIBLIOJD- 
4490 IF WPS • " THEN tiMESS = -Toucho de Fonctlon 
InacCiva*: G050B S500 
; GOTO 3100 
4800 PRINT DS-CL0SS';F2$: PRINT DS 
4810 GOSUB B500 

4820 PRINT DS'RUN-;WPS: PRINT DS: END 

5000 REM TAG Point 

terminal de Boucie 
5010 IF hWRGS = THEN WMESS - "Mat-cl6 absent": 

GOSCe flSOD: GOTO 3100 

5030 IF CU - WV GOTO 5250 

5040 CU - CO - WN * 1:WS = TASICU): GOSUB 8200 
5050 K4ESS " HS f " s4lBCt4":WPS - "BISLrOJO-.- GOTO 
4800 

5250 IF KARGS - AARGS GOTO 3100 

5270 WFi = 0:HA = OlWX = 0; GOTO lODD 

S^OO FOR W = I TO Clt: POKE VC + W, ASC < MIDS 

(W$, W,2)): NEXT 
8220 RETURN 

8500 VTAB 24: POKE 2403,0: CALL - 868: PRINT hMESS; : 
RETORN 

SI 00 REM ■■ 

WandJJng errors 
9220 POKE 226,0 :WW - PEEK (222) :W ^ PEEK (229) '256 

* PEEK (218) 
9220 ONERR GOTO 9200 

9150 IF WW ^ 2 OH HW = 5 THEN HOME : PRINT •PRQBLEI-IE 
INDEX': END 

9190 VTAB 24: PRINT "Erreur -.-WW;' llgne ";W: END 



BIBLIEOJ 

10 REM j'«-i'*j'-i'-:'»i»-**j»i»-**-»*«*j»*"""'»J»******""'"»««*"*'** 
20 REM ' BIBLIEOJ - Fin de Travail de la Eestlon 
Blbllo ' 

30 REM ' Auteur : R-J Anderson ' 
40 REM •w*******!'*-'*-''''''-*-**-*******"'''*'''*******""* 

50 REM 

100 TEXT : NORMAL : ifCME : CI.EAR 

120 DS - CHRS (4) 

200 ONERR GOTO 250 

230 PRINT DS; "DELETE/RAM/BIBLIOXl " 

250 ONERR GOTO 300 

270 PRINT DS; "DELBTE/RAM/B1BLI0X2" 

300 REM — — Retour au 

Startup Initial 
31 PRINT DS 

320 PRINT -Retour au Startup- 
330 ONERR GOTO 370 
350 PRINT DS; "RUN STARTUP": END 
370 PRINT DS 

380 PRINT 'Pas de Startup dans le catalogue' 
500 Em 



BIBUNIT 

20 REM *»t*****»i±t*tiIIKIiHI'rir»f/r1rtlltlrfir****^fft*» 

20 REM * BIBLINIT - Initialisation de la Cestlon 

Blbllathdque ' 

30 REM ' Auteur : R-J Anderson ' 
40 REM tiraiiiitinitriri'H"irr'rr*ii*ii*»***t*±*ir*f*tirt:Ki;nf 

50 REM 

100 TEXT : NORMAL : CLEAR :OS ~ CHRS (4): REM PRINT 
DS; ~PR£3~ 

120 PCS - "SIBLJNIT"; FOR W = I TO eO:hB5 - K35 * " -; 
NEXT 

130 ONERR GOTO 9100 

140 HN = 5: DIM WS(HN): REM Nonhre de LJbell^s 
J5D HZ = J ; DIM WZS(2,WZ) : REM Wombre de chan^js 
160 FOB W = I TO 9:LV$ = LVS t- '0":HVS = HVS * "9": 
NEXT 

IBO F2S - -BIBLIO': REM Nam du Flchler de base 
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200 REM 

Saisje de Ja Date 
210 PRINT DS;"FLU5H": PRINT D$ 

230 PRINT D$:W = INT f PEEK 119041) / 2) :HDS = STRS 

m 

240 HD5 - BIGHTS CO' * STES !l PEEK 1190411 - V • 2) 

• 3 + TNT ( PEEK 
(49040) / 32)), 2) » V + HDS 
250 <HD$ = RIGHTS CO' * STRS ( PEEK (490401 - INT < 

PEEK 149040) / 32 
I • 32),2) * •/• + hOfl 
300 REM D4flnltton da 

I'Ecran et des Zones 
310 TIS - "INITIALISATION DE LA GESTION DE LA 

BIBLIOTHEOOE' 

330 WW - LEN (TIS) :N% = (64 - m) / 2:W = 169 ~ MW) - 
(m ' 2) 

340 TIS ' LEFTS (W3S.H%> * TIS + LEFT? f«SS, W* f Wl 
350 MNS(l) = '01012TF : 1-Alde 4'Fin' 
360 «NS(2j = -02012-: FOR Si ^ 1 TO 80:WNSt2l = HNS(2) t 
NEXT 

370 HNS(3) = •03012" <■ MDS t TIS * PGS 
380 HNS 14) - '04012- <■ LEFTS f WB5, (Vi + 8) * MIDS 
(mS(2) ,6,W») 

410 VINSI5) = "070J D£ntirez votre nam d'utillsateur :' 
53DHF.su.]) = •0734087':WZS(2.1) = LEFTS (tBS,8) 
800 WMESS = -01 • 

820 WS = "N': FOR W = I TO (iK: If WNS(H) = "" GOTO 860 
830 NEXT :US = "Z": FOR W - 1 TO HZ: IF HZStl.H) = "- 

GOTO B60 
840 NEXT : C05UB 9200: GOTO 900 

B60 HOME : PRINT 'Erreur tableau H~H$"S l"W') ': END 
900 REM Poke des 

valeucs nuJJes 
930 VG - 7fiS.- POKE VG.O: FOR W = I TO 3: POKE VG * 

H,48: NEXT 

950 FOR W - J TO €5: POKE VG * 3 f W,32: NEXT 

1000 REM TAG Point-retour et 

afflchage de I'Scran 
1050 HOME - D 

1210 FOR m ^ 1 TO HN.-W = \IAL ( MIDS (fOiS INtl) , 1, 2) ) : 
VTA3 WV 

1220 HH ^ VAL ( MIDS (HNS (WW) , 3, 2) ) :HT = VAL I MIDS 

(HNS (m,5,])) 
1230 POKE 1403. MH - 1: IF WT > 4 THEN WT = HT - 5: 
POKE 50,63 

1250 PRINT MIDS (HNS(HH).6, LEN (HNS (UN) ) -5);: POKE 
50, 255 

1270 IF HT < 2 THEN H ^ H -t 1: IF MIDS (HZSd.Hj ,7,1) 

< -6" THEN PRINT 
' ';HZSi2,H): 
1290 NEXT : VTAB 23: POKE 1403,0: PRINT FIGHTS 

(HNS 12), 801,- 
2300 HM - VAL ( LEFTS !M4ESS,2)) - 1 
1310 VTAB 24: POKE 1403,0: CALL - B68 
1320 PRINT RIGHTS (MMESS, LEN IHMESS) - 3) ; 
1330 IF MIDS (MMESS,3,lj = THEN CALL - 198 
3500 REM TAG fintrto 

Argument et Donn6es 
1510 ms = "-:(*) ^ WM + 1: IF m > HZ THEN HM ^ 1 
1520 IF m < 1 THEN HM = HZ 

1530 WO = 0:HENTS = HZS(2,HM) :HL ^ VAL ( MIDS 

IWZS(1,H4),5, 2)) 
1540 HV ^ VAL I MIDS (HZS (1 ,HM) , 1 , 2) ) :HH = VAL (MIDS 

(HZSd.i*!) ,3,2)) 
- 2 

1550 HT = VAL (MIDS (HZS (1,HM) .7,1) ) 
1600 HO ^ HO * 1: IF HO > WL GOTO 2000 
1610 VTAB WV: POKE 1403,WH f WO: POKE 50,127 
1620 PRINT MIDS (HENTS, HO, 1) ; : POKE 50,255 
1630 HAIT 49152,128: POKE 49168, 0:WK - PEEK (49152) 
1640 IF WK = 10 OR WK = 11 OR WK - 44 THEN 1630 
1650 IF HK ^ 24 THEN IF HW > J THEN WZS(2,HM) = 
LEFTS (Has. WL * 2) : VTAB 

WV: POKE 1403, WH » HO: PRINT WZSI2,HM):: GOTO 1530 
1660 IF WT ^ 2 OS HT ^ 7 AND WK > 96 AND HK < 123 THEN 
HK - HK - 32 



1660 HKS = CHRS (WK):HOS - IF PEEK (49249) > 127 

THEN HOS = HKS 
1690 POKE 1403, HH t HO: IF HK ^ 13 GOTO 2000 
1710 IF HK ^ 9 THEN PRINT MIDS (HENTS, HO.l) : : GOTO 

2000 

1720 IF WK ^ 27 THEN POKE 1403, HH * 1: PRINT 
WZS(2,tS4); :WM = HM - 2: GOTO 
1500 

1740 IF HK = 21 THEN PRINT MIDS (HENTS, HO, 1 ); : FOB K 
= I TO 48: NEXT 
1 GOTO 1600 

1770 IF HK ^ 8 AND WO < 2 THEN WO = : GOTO 1600 

1780 IF HK ^ 8 THEN PRINT MIDS (WENTS.WO, 1) ; :WO = HO 

- 2: GOTO 1600 

1810 IF HK < > 127 THEN 1900 

1820 IF HO = HL THEN HENTS = LEFTS (HENTS, HL ' 1) -> ' 
": GOTO 1860 

1830 IF WO ^ ! THEN HENTS = RIGHTS (HENTS, WL - 1) + ' 
".- GOTO 1860 

1840 HENTS = LEFTS (HENTS. HO - 1) * RIGHTS (HENTS, HL 

- WO) -> " " 

1B60 HZS(2,HM) = HENTS: POKE 1403, HH + I; PRINT HENTS: 

GOTO 1610 
1900 IF HOS < > "" GOTO 2000 

1920 IF WT = 3 AND (HK < 47 OR HK > 57) AND WK < > 32 

GOTO 1630 
1940 IF HT < 6 THEN PRINT HKS; 
1950 IF HT > 5 THEN PRINT ""! 
1960 IF WL = 1 THEN HENTS - HKS: GOTO 1600 
1970 IF HO = 1 THEN HENTS = HKS * RIGHTS (WENTS.WL - 

HO) : GOTO 1600 
1980 IF WO ^ WL THEN HENTS = LEFTS (HENTS, HO ~ 1) * 

HKS: GOTO 1600 
1990 WENTS = LEFTS (HENTS, HO ~ 1) t HKS ' RIGHTS 
(HENTS, HL - HO): GOTO 
1600 

2000 POKE 1403, HH * WO: PRINT MIDS (HENTS, HO, }) f 
2010 WZS(2,t94) = HENTS: IF HOS = "" AMJ HK < > 13 GOTO 
1500 

2020 H5VPS = WZS(2,WZ): VTAB 24: POKE 1403.0 

2600 HMESS - "00 •:HPS = "": IF WOS = THEN 5000 

3000 REM Tests des 

Touches de Fonctla/i 
3050 IF HOS < > "I " AND HK < > 38 GOTO 350O 
3100 FOR W = I TO 5: HOME : PRINT 'PANEL D'AIDE' SPCI 

eO)PGS; 

3120 PRINT MIDS (HNS (2) , 6, 80) : : FOR WH - 1 TO 20 
3130 READ WS: IF WS = """ THEN HS - •':WW = 21:W - 5 
3150 PRINT HS: NEXT WW: VTAB 23: POKE 1403,0 
3170 PRINT MIDS (WNS (2) , 6, 80) : : PRINT "Pressez une 
Touche '; 

3200 GET HS: IF HS = "' GOTO 3200 
3210 PRINT : NEXT H: RESTORE 

3250 WMESS - LEFTS CO' + STRS (HM),2) » "AAide 

tennln^e": GOTO 9000 
3500 IF HOS = '4' OR HK ^ 39 THEN PRINT OS'CLOSE': 

PRINT DS: HOME : END 

3710 HMESS - LEFTS CO- t STRS (HM) ,2) + "E' 
3720 WMESS = HMESS * 'Touche de Fonctlon non d^flnle': 
GOTO 9000 

5000 REM TAG Controie de vaJJdlC^ de 

J 'UtiiisaCeur 
5D50 HMESS - 'Utlllsateur accepts. ' :HH = 10 
5100 IFHZS(2,1) •: > LEFTS (WBS, LEN (HZS(2,1)>) 

THEN 6110 

5130 HMESS = "OlELe nan d'Otillsateur est obltgatolre' : 
GOTO 9000 

€110 FOR H ^ 1 TO HU: IF HZS(2,1) = HUS (H) THEN POKE 

VG,4: GOTO 6220 
6130 NEXT W:mESS - hME5S + "Mise a Jour NON 

autarls^e , " 

6220 IF PEEK (VG) > 2 THEN WMESS = WMESS f 'Mise a 

Jour auEorlsSe." 
62^0 GOSMB 8520 

7100 REM — Creation 

Index en /RAM 
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7^30 H4ESS - "InStlaHs^tlan conmenrfe": GOSUB B520 
7140 PRJtrr D$;"0PEN";F1$: PRINT DS : -BEAD- ; Fl $ 
7150 INPUT Fl,Clt,Fl%,Il,IH, XI, 12,12%, X2: PRINT 

DSj "CL0SE';F1S 
7200 IIS ^ Fl$ * •X1-:I2$ = F15 r "X2- 
7220 MIS = -/HAM/- * J1S:M2S = '/BAM/' * I2S 
7300 iWESS = 'Chargement ler Index en cours...': GOSUB 

B520 

7320 PRItrr DS; 'OPEN'; IIS: PRINT DS: 'OPEN'; MIS: PRINT 
DS 

7310 FOR U ^ 1 TO XI 
7360 PRINT DS; 'READ'; lis : INPUT HIS 
7380 PRINT DS;'fmiTE';MlS: PRINT HIS 
7390 NEXT W 

7410 PRIIfT DS; 'CLOSE'; IIS: PRINT DS; 'CLOSE-; MIS: PRINT 
DS 

7S0O li»4es5 = 'Chargesnent 2ime Index en cours..."; GOSUB 
B520 

7520 PRINT DS; "OPEN'; I2S I PRINT DS; 'OPEN'; M2S : PRINT 
DS 

7540 FOR M ' 1 TO X2 
rjuj fni'ivr £Jf; "nartU"*'Ji*: tp*ftjx 
7580 PRINT DS; 'URITE-;M2S: PRINT MIS 
7590 NEXT W 

7610 PRINT DS; 'CLOSE'; I2S: PRINT DS; 'CL0SE';M2S: PRINT 
DS 

7710 WESS = "Initialisation termln6e.': GOSUB 8520 
7730 HMES? = "Menu en cQurs...-.- GOSUB 6520 
7750 PRINT DS;'RL^ BIBLIOOO': END 

650 REM ■■- — 

Ro>i tines 

8520 WJ = WH * ] : VTAB HH: POKE 1403,0: PRINT tSIESS; : 
RETURN 

8540 VTAB 2i: POKE 1403, 0: CALL - 668: PRINT tIMESS; : 

RETURN 

9000 REM TAG — Point 

d'siboutlssement genital 
9020 AARCS = mUGS: IF MIDS (HMESS,3,!1 = -A" GOTO 

1000 
9030 GOTO 1300 

9100 REM TAG — 

Tralternent Erreurs 
ailO POKE 21 6,0: HM ^ PEEK 1222) :N ^ PEEK (2191 '256 

■> PEEK 1218} 
9120 ONERR GOTO 9100 

9140 HMESS " -OlEEre. ' * STBS (ml * " Ln. * * STRS 

(W) : GOTO 1000 
9200 mS(l) ■= "POMS -:msr2l = -ANDERSON' 
9210 WU = 2: RETURN 

9300 REM ___„ Textes de 

J 'Aide Int6gr6e 
9400 DATA 'Pour initialiser la Cestion de la 

Blblloth^que, vous tJevez" 

9410 DATA "enCrer votre nan d'uCJlisateui-. " 
9430 DATA , 'SI vous n 'en avez pas, vous enCrez 

n^anmolns votre ncm" 
9440 DATA 'msls Vans ne serez a\ltocis6 qu'a consulter 

la blbliothiqiie. 

9480 DATA , "Attention :', '— 

9470 DATA 'Un nam d'utlllsateur ne peuC avalc plus de 
HUIT caract^ces. 

9610 DATA 



Comment faire ? 

Vous poss4cl9Z la disquette d'accompagnemenl de co 
numito : metiez-vaus simplement sur h sous- 
catahgue bibl at fait&s run biblinit. A la question 
vous demandant votre nam d'utHisateur, r4pondez 
POMS. Le programme affichera das astdrisques. C'est 
normal, votre nam d'utilisateur ne dolt etre connu que 
de vous... Puis les index seront charges et le Menu 
Primaire vous sera pr4s9nl4. 

Vous n'avBzpas la disquette d'accompagnement de ce 
num4ro : 

A Tapez tous les programmes. 
B Deux cas se presentenl ensuite : 

1 Vous avez la disquette d'accompagnement du 
num4iro 49 de Pom's. A I'aide du programme 
KfTRZERO, cr4ez un Hchier appel4 biblio de 
250 cl4s de 3 chiffres, avec una longueur 
d'enregistrement de 14S, at disposani de deux 
index d'autant de posies. La zone du 1^'' index 
commence en 1 et s'etend sur 40 octets. Celle 
du second index commence en 41 et s'6tend sur 
25 octets. 

2 Vous n'avez pas la disauette du num6ro 49 (ie ne 
vous felicite pas I). Faites toumer le programme 
suivant : 

10 D? = cms (41 : 

20 PRINT DS-QPBN BlBI.IQ.hl'lS" : PSINT DS"»RITE 
BIBLIO, RQ" 

31 PRINT OtPRINT 3 : PRINT 146 

32 PRINT 1 :PRTNT 40 : PRINT 250 

33 PRINT 41 : PRINT 25 : PRINT 250 
to PRINT DS'CLOSE BlBLlO" 

50 PRINT DS'OPEN BIBLIOXI" : PRINT DS"tmlTE 

BIBLIOXl- 
60 FOR K"! TO 250 : PRINT " * : NEXT 
70 PRINT DS'CLOSE BlBLIOXl' 

80 PRINT 0$"aPEN BIBLI0X2" : PRINT DS"miTE 

EIBLI0X2" 
90 FOR K'i TO 250 : PRINT " " ; IfBXT 
100 PRINT CS-CiaSB BIBLI0X2" 
lie END 

C Faites RUN BIBLINIT. 

Dans taus les cas, n'oubliezpas d'inlervenir 
uttSrieurement sur le programme BIBLINIT pour lui 
(aire accepter les rioms d'utilisateurs (dant le votre I) 
que vous souhaiteriaz ajouter dans le tableau WU$. 
Vous pouvez suppn'mer les deux noms quis'y trouvent 
d4jk. Mettez le nombre de noms d'utilisateurs dans la 
variable r)umerique WU. Cos instructions se trouvent 
vers la fin du programme. SI le syst^me doit d4marrer 
directement sur biblinit, renommez-le tout 
simplement startup I 

Vous pouvez aussi compiler les programmes A I'aide 
par example du Beagle-Compiler et transferer les 
codes obtenus sur une autre disquette ou, mieux 
encore, un disque dur. N'oubliez pas le Run-Time ot 
arrangez le Startup. Copiez ensutte le fichier BTBLIO el 
ses deux index BlBLIOXl etBiBLXOXZ. Vous pouvez 
6galement mettre le fichier et ses index dans un autre 
catalogue ou un autre volume mais il vous faudra 
intervenir au niveau des noms de fichiers et d'index 
dans les programmes. 

R.J.Anderson 
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'Dimitri Qeystor 

Bien rares sont ceux qui, de nos jours, ne sont ni crdanciers ni debiteurs. En deposant votre argent i 
la banque vous en devenez le creancier. Quand vous faites un emprunt, ne seraii-ce qu'en utilisani une 
carte de credit, c'est votre tour d'etre debitem'. 



Qui dit prSt ou emprunt. dit intfirels qui vienneni s'ajouter 
au capital. Le nouvel AppleWorks 3.0 est I'outil rcv6 pour 
en faire I'analysc. grace & ses fonctions financifires. 

Je vous propose aujourd'hui de conslruire un tableau 
d'amortissemeni au moyen de la fonction apmt, et de le 
personnaliser i I'aide de quelques macros. 

Supposons que vous soyez rempninieur. Vous avez besoin 
d'une somme donndc, doni vols connaissez le moniani (par 
excmple 30 000 F). Votre banque veut bien vous la prctcr S 
un laux, meltons de 13,50 %. Vous devrez rembourser en 
24 mensualiles Sgales. 

Pariant de ces filfiments. la fonction aPMT d'Apple- 
Works 3.0 vous indique in stan landmen! le montanl de 
chaque mensualilS. 

Multipliez la mensualit^ par le nombre de versemenis, ct 
vous aurez le montanl total ^ rembourser (capital + 
inl6rels). 

Chaque fois que vous versez une mensualiid. vous 
remboursez une pari du capital et vous payez un certain 
montanl d'int^rSts. Bien que chaque mensualit^ soil du 
meme montant. les pans respectives capital/ini^rets qui la 
composeni soni variables ^ chaque 6ch6ance : au diibut, 
vous payez davaniage d'iniSreis puis, au fur el k mesure que 
le capital emprunifi diminue (puisque vous en remboursez 
chaque fois une partie), les ini6rets s'amenuiseni ei le 
remboursement du capital augmenie. En cas de 
remboursement anticip^, il est intdressani de savoir quelles 
sont les parts respectives capilal/intSrcu S chaque SchSance. 
C'est le role d'un tableau d'amoriissemenL 

AppleWorks 3.0 perniet de conslruire un lei tableau meme 
sans I'aide d'UliraMacros. Mais AppleWorks seul ne sail 
pas faire intervenir les dates : il vous indiquera de quoi est 
compos6e la n'*""' ^chdance, mais vous aurez beau lui 
indiquer la date du premier remboursement, it est incapable 
d'en d&luire la date du n'""* paiemenL 

Les macros propos^es dans cet article permettent de g&-er les 
dales dans le Tableur AppleWorks : partanl des donn&s pr£- 



cit£cs el de la date de la premifire &:h&ince. la macro # 0-A 
construii un tableau d'amortissemeni donl la premifere 
colonne coniieni les dates de toules les dchdances 
succcssives. D'un coup d'CEil. vous pouvez done voir que la 
ni6me gchiSance correspond & telle date, que ce verscment est 
compost de lant d'inuSrcls et de lant de capital ; le tableau 
indique aussi les ini6rets el le capital cumulfis ^ cette date, 
le capital resiant £i rembourser, el enfin le solde (c'est-a-dire 
la somme, inl^rels ei capital confondus, qui vous reste k 
payer). 

II vous suffit de varier les donnfes de depart el de relancer la 
macro pour effacer instantanfimeni le tableau prdc^dent et 
construirc un nouveau scenario. 

Un lecieur m'ayant demand^ par aillcurs si AppleWorks 
Stait capable de calculer le nombre de jours compris entre 
deux dates donntes, je vous propose aussi la macro #(5-D, 
qui s'acquiue de ce travail. Cetie macro est pilotiSe par un 
menu horizontal de type AppleWorks (j'en ai A&]k expliqu6 
le principe dans le n° 48 de Pom's, voici done une 
application concrete). Ce menu vous donne ^ choisir entre 
plusieurs types de saisie : lire la date en cliquant sur une 
cellule qui la coniient, taper la dale au clavier ou insurer la 
dale AppleWorics (c'est-S-dire la date courante si vous avez 
une horloge, sinon la dale que vous avez donn^e au 
d&narrage). 

Pour corser un peu les choses, la macro sail lire une date 
aussi bien dans le Tableur (sous la forme JJ/MM/AA) que 
dans une Base de donndes (sous la forme "18 Jan 90"). Si 
vous etes dans une Base de donndes, le r&ultat apparaltra 
dans un message de bas d'Scran. Par contre, dans le Tableur, 
la macro a besoin sp£cifiquemeni du fichier 
/AMOBTissEMENT (foumi suf la disqueite Pom's n" 50, 
mais dont la construction est dficrite ci-apr£s) ; en effet, dans 
ce cas de figure, j'ai choisi d'inscrire le rdsullat sur une page 
de la feuille de calcul, et il faut que ce fichicr (et pas un 
autre) soil k I'Scran, sinon la macro refuse de faire son 
travail. Mais rien ne vous empeche, aprfes avoir ^pluchfi la 
macro, de la modifier pour la rendre inddpcndante du fichier 
/AMORT issEMENT CO la faisant fonciionner, par exemple, de 
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)a ni&ine mani&re dans le Tableur que dans la Base de 
donnSes. 

Ceci dit, passons d'abord k la construciion du fichier 
/AMORTissEMENT. Si vous disposcz de la disqueue Pom's 
n" 50, vous pouvez sauter ceue paitie, car vous y trouverez 
ce fichier tout prct, de mtme que les macros dans le fichier 

TdT /ECHEANCES. 



Construction du fichier 

AMORTISSEMENT 



Suivez les indicadons dans rordre. 

Ouvrez un nouveau fichier Tableur. nommez-le 
AMORTISSEMENT (et pas autremcnt, c'est important). 

Fixez les valeurs standard suivantes (commande 
Pomme-V) : 

✓ Valeurs : D6/ini, 2 decim^les ; 

✓ Protecdon : Oui ; 

✓ Recalculer : Lignes. Manuel ; 

® Les dimensions : 

Moditiez les largeurs des colonnes suivantes (les auu'es 
reslant ^ Icur valeur par difaul de 9) : 

COLONNE LARGEUR 

E 18 

I 2 

J 1 

K 8 

L 10 

M 1 

O 11 

p 11 
Q 1 

R 11 

® Les separations : 

Allez & la cellule Bl, tapez une fois sur la louche des 
guillcmets (pour annonccr la saisie d'un label), et tapez le 
signe "=" jusqu'^ aborder la cellule Gl (cette dernlere 
contiendra un seul signe "="). Faites RETURN. 

Pour recopier cette Itgne double en B17 k 017, agissez 
ainsi : tapez d-C, RETURN, s^lcctionncz les cellules BI i 
Gl inclusivement, RETURN, placez le curseur en BI7, 
RETURN. 

De fagon analogue, remplissez compl6temcnt de signes "=" 
les cellules de H19 k R19 inclusivement, puis recopiez ce 
double trait en H84 k R84. 



Puis remplissez compl^iement de signes "=" les cellules de 
S3 k Z3, et recopiez le double trait en S7 a Z7. 

Mainienant placez le curseur en B2. Gommencez la saisie 
d'une petite macro au clavier : 

Tapez : C5-W, 5. une fois sur la louche guillemets, un 
point d 'exclamation, une fois fl6che-en-bas. Control-^. 

Avec cette macro (Option-5), placez des points 
d'exclamation dans les cellules suivantes : B3 & BI6 (il y 
en a d€}k un en B2), puis G2 kGl6. puis J20 kJ22, puis 
M20 kM22 et encore deQ20 aQ22. 

Enfin, pour terminer les cadres, remplissez complfetemeni 
en pointing simple (avec le signe "-"), les groupes de 
cellules suivants : H21 ^121, K21 k L21, N21 k P21 
e( H21 ^R2I. 

® Les labels: 

Allez i la cellule C3, appuyez une fois sur la louche 
guillemets et 6 fois sur ESPACE, puis tapez TABLEAU 

D' AMORTISSEMENT suivi de RETURN. Soulignez avec 
des signes "=" dans la tigne au dessous. 

Allez maintenant aux cellules indiqu^es entre parentb&ses, 
tapez ce qui est indiqu£ (le texte s'etend jusqu'au bout de la 
cellule voisine) et validez k chaque fois avec FIdche-en-bas : 

(C6) Montant nominal . . . 

(C7) Taux 

(C8) Nombre d'6cheances 

(C9) Chaque versemenc . . 

(CIO) Total interets 

(Cll) Cout total 

(CI3) iere echeance 

(C14) Dernlere echeance, 

Passons au tableau proprement dit. Cadrez r&ran siu" les 
colonnes H & R. et mettez le curseur dans la cellule H20. 

Tapez (puis validez) : 

(H20) DATE 

(120) Mo 

(K20) La Couehe guillemets, 4 espaces, 
INTERETS 

(O20) La touche qui 1 lemets, 3 espaces, 

CAPITAL 
(R20) RESTE 
020) A 
(120) PAYER 

(K22) s/ech 

(L22) cumul 

(N22) w/ech 

(022) cumul 

(P22) rest ant 

Passons au dernier ^ran : 

(U4) Jours ecoules entre deux dates ; 

(U6) Date 1 : 

(U7) Date 2 ! 

(X7) 02 - Dl : 
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II faut mainLenant inscrire les formules dans certaines 
cellules. Meuez le curseur sur chaque cellule indiqu^e, tapez 
exactement la formule et validez avec RETURN : 

(E9) iIF<E8>0,-aPMT(E7/12;E8;-E6) ;E6} 
(ElO) aTFIE8>0; (E9'E8) -E6;0) 
(Ell) *E6*E10 

(X24) iIF(E8>0;+E£' (E7/12) ; " "J 

CL24) ^1F(E8>0,-K24;" ") 

CN24) aIF(E8>0;E9-K24,- •' "J 

(024) AIF(E8>0;N24: " "J 

(P24) aIF(E8>0;E6-024,-" "; 

(S24)3lF^E8>0;BIl-(E9'I24l ;•• ") 

(K25) d IF f 124 <E8,- P2 4' IE 7/12) ; " ") 

(L25) A1F(124<E8;L24*K25;" ") 

(N25) alF (I24<E8;E9-K25; " ■) 

(025) aIFII24<E8,-024+N25,- " "J 

(P25) iIFII24<£8;E6-025;" "I 

(R25) aIFII34<EB/Ell- IE9*I25I ; " ") 

Remarquez, en passant, qu'AppleWorks 3.0 accepie des 
chatnes lexte (les espaces el traits poimilliSs en I'occurence) 
en melange avec les valeurs dans les fonclions condi- 
lionnelles, Ceci permel de construire des tableaux plus 
propres et plus explicitcs. 

II Taut maincenani — un peu de patience !— recopier ia 
demifere s^rie de formules de la iigne 25 sur TOUTES les 
lignes. jusqu'S la ligne 83 inclusivement. C'est moins 
douloureux qu'on ne pourrait le penser. AUons-y. 

Curseur en K25, tapez C5-C et RETURN. Sdlcctionnez la 
source jusqu'^ la cellule R25 incluse. Faites RETURN pour 
valider (la ligne k copier est en vidSo inverse). Descendcz 
sur la cellule K26 avec FI6che-en-bas, ct tapez un point 
pour indiquer que vous copiez sur une SERIE de lignes ; 
celte fois c'est les lignes cibles qui passeni en vid6o 
inverse. Tapez i3-9 et Fl6che-en-haut pour remontcr sur la 
demibre ligne de copie (83). Validez avec RETURN. 

La copie n'est pas encore lerminee : AppleWorks va vous 
poser une s6rie de questions, pour savoir quelles nSfSrences 
doivent ctre copides en relatif (en tenant compte du 
dficalage), et lesquelles sans changement (sans tenir compte 
du dficalage). A chaque question, vous rSpondrez en 
appuyani sur la louche R (relatif) ou S (sans changement). 
Notez bien les rdKrences des cellules illumindes en vid6o 
inverse, k ravani-demi&re ligne au basde I'&ran. 

Chaque fois que la nSfdrence sdlectionnde est une cellule de 
la colonne E, tapez S. Chaque fois que la rdf^rence est une 
cellule des colonnes I & R, tapez R. Continuez jusqu'S la fin 
de la copie. Si vous vous trompez en cours de route ne vous 
inquidiez pas, faiies ESC cl rccommencez la copie depuis le 
d^but. 

II reste k crter les numeros de la colonne 124 h 183. Nous 
allons 6crire une petite macro qui fcra le travail. Dans un 
fichier de iraitement de lexte toivez START en d^but de 
ligne, allez k la ligne et tapez la macro ci-apr6s : 

a:<asp (Ecclre une colonne de J i 60) 

begin 



print c :down c=ctl 

ifnot c=61 rpt else stop>! 

Compilcz, rcvenez au fichier /amortissement, mettez le 
curseur sur la cellule 124 el tapez it-A. Toutes les cellules 
se rempliront avec les deux signes tfH, ce qui signifie que le 
nombre qu'eiles coniiennent est trop grand pour la place 
disponible ; en effcl, les valeurs standard prdvoient un 
affichage de lous les nombres avec deux t'dcimales, et nous 
n'en avons pas besoin ici. Mettez le curseur sur 124, tapez 
0-X suivi de la lettre B pour choisir un bloc. Tapez c5-9 et 
F16che-en-haui pour s^leciionner le bloc jusqu'^ la cellule 
183. Tapez RETURN pour valider le bloc, puis u-ois fois 
RETURN encore pour valider successivemcnt Valeur, 
D£fini et dScimalcs. Ca y est, les nombres de I & 60 
devraieni s'incrire les uns sous les aulres. 

® Formaiage des cellules i 

II nous reste ^ indiquer le format de certaines autrcs cellules, 
c'est-Ji-dire Icur type d'affichage, comme nous venons de le 
faire diSji ci-dessus. Le formaiage se fail par la commande 
(3-X. On peul formaler une seule cellule (saisie), une 
colonne, une ligne ou un bloc. Voici les choix & faire : 
(E6) C5-X Saisie Valeur Pourceni 2 ddcimales 

(E7) CJ-X Saisie Valeur D^fini OdScimale 

(E]3aE14) c3-X Bloc Label Droite 

(Y7) t3-X Saisie Valeur DSfini Od&imale 

(K22 h R22) C5-X X Bloc Label Centra 

CR20 a R21) 0-X Bloc Ubcl Centre 

© Protection des cellules 

C'est une operation non indispensable, mais bien utile. Elle 
empechera de ddlniire par mdgarde le contenu des cellules. 
Nous avons dSjS choisi la valeur standard "Proiection/Oui". 
11 faul maintenant activer cette protection en passant par la 
commande d-X, et en indiquani le bloc k proldger. 

Tapez 0-< et 0-1 pour amener le curseur en AI. Tapez 
d-X et B (pour Bloc), s^lectionnez vers la droite jusqu'^ la 
colonne Z inclusivement en tapant (5->, puis jusqu'S la 
ligne 84 inclusivement en tapant i3-9. Validez avec 
RETURN. Tapez P pour Proteclion. et R pour rien (oui, je 
sais. de la manifere doni AppleWorks pose sa question, 
"Rien" protfegc tout, et "Toul" ne proiSgc rien...). C'est 
fait, tout ce bloc est protdg6 contre I "ferilure. 

En fail, c'esl trop, il y a des endroils ou nous aurons quand 
meme besoin d'Scrire des donndes. I! faut d^sactiver la 
protection de ces cellules, en y auiorisani r&riiure. Voici 
les choix k faire : 

(E6 k E8) C3-X Bloc ProtecUon Toul 
(E13&EI4) C5-X Bloc Protection Tout 
(H24aH83) d-X Bloc Protection Tout 
(Y7) 0-X Saisie Protection Tout 

(V6 k V7) O-X Bloc Pnstecuon Tout 

Le tableau est lerminfi, il ne vous resie plus qu'k le sauver, 
Ce tableau pent etre utilise tel quel, sans recourir aux ma- 
cros qui vonl suivre. Simplemenl, la colonne H, r&erv£e 
aux dates, reslera vide. Essayez I'exemple ci-aprSs : 



Pom's n° 50 



1 



Exemple : vous souhaiiez voir la table d'amortissemeni 
d'un emprunt de 30 000 F, accords k un laux de 13,5 % et 
remboursabie par mensualil^ sur deux ans. Tapez c5-< ei 
C-1 pour afficher la premi6re page. Mettez le curseur en 
E6, tapez 30 000 puis F16che-en-bas, tapez 0,135 puis 
FlSche-en-bas. tapez 24 puis RETURN. Lancez le rccalcul 
manuel avec c5~K. Pour voir le tableau, tapez deux fois 
c3-Flfeche-4roite el deux fois cS-Fl&che-en-bas. 

Note 1 : le tableau a 6ti privu pour un maximum de 60 
mensualitis (soil 5 ans). Les macros aussi. Mais rien ne 
vous empecke d'allonger la table d' amortissement selon 
voire convenance : par exemple, faire une colonne ! allant 
de ] d 120 mensualit^s. et de copier les formules jusqu'd la 
ligne 143 incluse. Dans ce cas, la macro 
fonctionnera elle aussi. Par conire, la macro 5#-Z> n'esl 

pas privue pour alter au-dela du 31 dicembre 1999. 

Note 2 : si vous etes prels d vous passer des macros fou d 
les adapter .'), le tableau peut etre facilemenl modifii pour 
une periodicity des echeances autre que mensuelles. 11 vous 
faudra changer toutes les formules qui contiennenl la 
rifirence d E7 (le taux dinterels) : la cellule E9 (nombre 
d' icheances) et les cellules de la colonne K (intirets 
s/^ch), Ce n'est pas un gros travail. Par exemple. pour 
un tableau d ich&ances annuelles el non mensuelles, 
remplacex dans ces formules E7I12 par E7. C'est tout. 
Mais, je vous le rappelle. aucune des macros ne 
fonctionnera correctement dans ce cas... 
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Les macros \ actionner soni les inacios "AO". Touies les 
auires ne soni que des routines inteini(kliaires. 

La macro #d-A consiruit un &hdancier pcrsonnalisi dans 
le flchier /amortissement ; il faut done que celui-ci soil 
pr£alablement mis k I'ficran, 

On suppose que le montani nominal de I'empruni et le taux 
d'int^r&l ont d&}h6t& inu-oduits manuellement 

D6s que la macro est lancfe, elle invite k donner le nombre 
de pdriodes de rembourscment, puis la date de la premiere 
dch^ance. Tout le reste se fail auiomatiquemenl. Pour 
circuler entre la page de r£sum£ et le tableau proprement dit, 
taper *C-1 et *c5-2. 

*t3-3 affiche la page de calcul du nombre de jours compris 
entre deux dates donn&s. 

C'est la macro 4c5-D qui fait ce calcul des jours. Elle est 
pilolSe par un menu horizontal de type AppleWorks qui 
permet de choisir entre trois options pour chacune des dates 
(Date 1 et Date 2). dans n'importe quelle combinaison : soit 
lire une date dans une cellule en cliquanl dcssus, soir taper 
une date au clavier sous la forme JJ/MM/AA, soit saisir la 
date actuelle AppleWorks. 



Mais la macro 4d-D fonctionne aussi dans une Base de 
donnas, et elle sail y lire une date au format BdD. Dans ce 
cas, la macro se dfiroule de fa^on un peu difffirente et le f 
r&ultat est affich£ en message de bas d'6cran (il est aussi 
inclus dans la variable n, d'oij tl peut &tre t€cup6c& pour 
d'Sventuels calculs). La macro A 0-D sail distinguer un 
fichicr Tableur d'un fichier BdD, et elle s'y adapte 
automatiquemenL 

START * 

Cette macro est relativement simple : aprSs avoir "fait le 
manage" au dSmarrage (purger toutes les variables, vSrifiw 
que le Qchier /amortissement est bien k I'&ran, centrer 
I'&ran et placer le curseur en E13), on demande de taper le 
nombre de mensualit£s d£sir£es. La macro recourt k 

mslniction <getstr> poiir la saisie au claviw, et envoie 
aussitot ^ la routine de contrdle <sa-c>, qui pi6ge une 
6veniuelle sortie par ESC. 

En effet, si vous souhaitez abandonner une saisie au milieu 
de <getstir>, votre seule issue de secours est de taper sur 
ESC. Nolez bien ce qui se passe : un premier ESC efface 
les caractires dfij^ enregistrds en bas d'&ran, face au ">". 
mais n'interrompl pas la saisie : on peut ainsi rectifier une 
eneur de frappe. Un deuxiSme ESC provoque par contre la 
sortie de <ger_sr:!r>, mais n'interrompt pas la macro : celle- 
ci se poursuit avec une chalne $o complfetement vide, ce qui 
periubera forc^ment la suite des 6v6nemenis. D'ou la sous- 
routine sa-c qui est charg^ d'intcrrompre la macro si elle 
constate que $o est vide (ce qui, au sorlir de <getstr>, ne 
peut elre que la consequence d'un ESC...). 

l\ote : a une jagon generate, on peut coniroter rigou- 
reusement le contenu d'une saisie en plagani <getstT> 
Im-meme dans une sous-routine, et en analysant aussitot 
le conienu de so avec I' instruction <mid s>. Par exemple, 
d la place de "getstr 2" dans la macro <ba-a> on aurait 
puintercaler "a-4" .et 6crire ainsi la routine de conirole : 

4:<all in' accepts que des nombres, de 1 a 60} 
begin 

SO-^getstr 2 ; Isaisir 2 caracteres et pas 
plus svp) 

$l^n\id $0,1,1 : S2=mld $0,2,1 : (ler et 

2^ine caract^res de $0) 
5-3=mld $0,3.1 : case $3 : 
a^asc $1 : b-asc $2 : (leur valeur ASCII) 
if a<49 or a>57 bell rpt endif fsi SI 

inf.i ou sup. a 9) 
if b>0 and a>5i bell rpt endif {si $2 

nan vide et $1 sup.d 6) 
if b>0 and b<48 or b>57 bell rpt endif 

(si S2 non vide et inf. A 0, au sup. a 9) 
if a=54 and b>4B bell rpt endif>t (si SI 

sup. a 6 et $2 sup. a 0) 

Vous pouvez tester I'cfficacilfi de ce fillre en activant cette 
sous-routine s^parSment (elle est autonome). et en essayant 
de saisir autre chose qu'un nombre compris entre 1 et 60. 

Notcz I'emploi que fait UltraMacros 3 des conditions and et 
OF assocides S if. Je rappelle qu'UliraMacros lit les 
conditions successivement de gauche k droite, chaque 
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noiivelle condition agissani sur le r^sultat (vrai ou faiw) de 
I'ensemble des conditions prdc&lenies. 

A rintenlion de ceiw d'entre-vous qui aiment experimenter 
les commandes el instructions d ' UliraMacros, je rappelle 
que la vie est beaucoup plus facile avec rapplication 
TimeOut TO. DEBUG, dont la version pour AW. 3 et 
UliraMacros 3 est contenue dans !e dossier APPLEWORKS 
de la disqueUe n° 49 de Pom's. Ceite application permct 
d'afficher S tout moment ie staiut d'UltraMacros, le nom de 
toules les macros actives, la valeur de loutes ies variables 
numSriques, le contenu de toutes les variables chalne et le 
numdrodu jeu (1 k 8) de variables aciif. 

TO.DEBUG permet aussi de modifier le contenu d'une ou 
de plusieurs des variables affichfies. Si une macro d^raille, 
inscrez une instruction stop h I'endroil scabreux ou 
suppose tel, activez TO.DEBUG et comparez I'dtai des 
variables ^ ce qu'il devrait Stre. C'est Ubs instiuctif. 

Si vous n'avez pas TO.DEBUG, et en attendant que le 
facteur vous I'apporte, confeciionnez-vous le "d^buggeur 
maison" conseilie par Mark Munz dans le numdro de 
ddcembre d'AppleWorks Forum, ia revue de I'AssociaLion 
Am^ricaine des Uiilsaleurs d'AppleWorks (NAUG). C'est la 
macro suivante : 



<bd-«>:<-aiI; oa-q: els: 



msgxy 


20.2 




rasg 


"A = 


+str$ 


R: 


msgxy 


20,3 




msg 


"B = 


" *str 


5 


B: 


nisqxy 


20,4 




msg 


"C = 


" +str 


S 


C: 


ntsgxy 


20,5 




msg 


"D = 


" +str 


5 


0; 


msgxy 


20, 6 




msg 


"£ = 


" +strS 


£: 


msgxy 


20. 7 




msg 


"f = 


" fstr 


S 


Fi 


msgxy 


20.8 




msg 


"G = 


" +str 


S 


C: 


msgxy 


20. 9 




msg 


"H = 


" +str 


s 


R: 


msgxy 


20.10: 


msg 


"2 = 


" +str 


? 


I: 


msgxy 


40,2 




msg 


"J = 


" *strS 


J: 


msgxy 


40,3 




msg 


"K = 


" +str 


? 


K: 


msgxy 


4 0,4 




msg 


"L = 


" -tstr 


? 


L: 


msgxy 


40.5 




msg 


"M = 


" i-str$ 


H: 


msgxy 


40. 6 




msg 


"N = 


" +sCrS 


N: 


msgxy 


40. 7 




msg 


"0 = 


" tstrS 


0: 


msgxy 


4 0.8 




ifsg 


"P .. 


" +str$ 


P: 


msgxy 


40. 3 




msg 


"0 = 


" +sErS 


Q: 


msgxy 


40, IC 


: 


msg 


"R = 


" -fStrS 


R: 


msgxy 


SO, 2 




msg 


"S = 


" +str5 


S: 


msgxy 


60, 3 




msg 


-f = 


'■ +strS 


T: 


msgxy 


60, 4 




msg 


"(J = 


" +srrS 


a: 


msgxy 


60, 5 




msg 


"V = 


" *str$ 


V: 


msgxy 


60. 6 




msg 


"W - 


" +strS 


»: 


msgxy 


60, 7 




msg 


"X = 


" fstrS 


X: 


msgxy 


60, 8 




msg 


"Y = 


" +strS 


Yi 


msgxy 


60, 9 




msg 


"Z - 


" *strS 


Z: 


msgxy 


60. IC 




p^peek Ivarset : 


msg 


actif 






= "+str$ 


P 






msgxy 


0,12 




msg 


"SO"- 


+ SO 






msgxy 


0, 13 




msg 


Sl^' 


* $1 






msgxy 


0,14 




msg 


"52= ■ 


+ S2 






msgxy 


0,15 




msg 


"S3-- 


+ S3 






msgxy 


0.1€ 




msg 


"$4-' 


* S4 






msgxy 


0,17 




msg 


"S5 = - 


V- 55 






msgxy 


0,18 




msg 


"56- " 


* 56 






msgxy 


0,19 




msg 


"57=- 


+ 57 






msgxy 


0.20 




msg 


"58=' 


* 58 







msgxy 0,21 : msg "S9=" + $9 ; 
msgxy 0, 128; 

msg ' Tapez deux fois ESC pour effacer 
1 'ecran ' > ! 

J'en profile pour recommander chaudement, encore une fois, 
cetie revue S lous les utilisateurs d'AppleWorks. C'est une 
mine de renseignemenls sur I'univers AppleWorks {surtoul 
classique, mais d^sonnais aussi GS). Elle esi ficriie en un 
anglais clair et simple, avec un grand souci p&lagogique. La 
coiisaiion a I'association vous donne, en plus de la revue, 
I'acc&s k une vaste biblioih^;que de logiciels du domaine 
public et k des rfiduciions sur des logiciels ei mat&iels du 
commerce. Envoyez une lellre avec un cheque en dollars 
dlabli par voire banque, ou mieux —el loui simplement — 
voire commande avec voire num^ro de carte VISA ou 
MasterCard k I'adresse suivante : 
NAUG 

National AppleWorks Users Group 
Box 87453. Canton, Michigan 48187 
U.S.A. 

Abonnement : avion : $ 64 ; 

simple : $ 4L 

Mais revenons k nos moutons. Voici la boucle i^ncipale de 
la macro qui ficrit les &:h£ances : 

<ba-a>;<alJ{nombre d'echeances, dates ec 
tableau) 

clear (on purge les vai^iables) 

sa-b (fichler /AMORTISSEMENT svp) 

ba-1 (positionner curseur) 

oa-L>c< oa-y >sl3-: rtn 
>" <doun>" Cup up up up up up 
msg 'Rembourser en combien de raois, svp ?' : 
bell 

SO-getstT 2: sa-c 

if $0="0" bell goto sa-f else (peu 

pTobable, mais possible) 
sa~0:rtn e^val SO fimpcime et enreglstre 

nombre d'^ch^ancss) 
down down down down down 

(ci-apr^s, saisie de la premiere echeance, 
eviter de choisir les 29, 30 et 31 d'un 
mois. I 

msg ' lere Echeance ? JJ/MM/hA svp': 

bell SO-getstr 8 : 

sa-c 

>"<sa-0 ; rtn ceil ; 

S3=mid $0,1,2 ; j^val S3 : 

54=mid $0,4.2 : m=val $4 : 

S5=mid $0,7.2 : a=val 55 : 

ba-2 (positionner curseur) 

down daun down down dawn 

oa-B >b< oa-9 up rtn (on efface la colonne j 
>"< sa~0 (on imprime la lere Echeance) 

msg ' Un moment, svp ' : 
m^m+1 (an incremente le mois) 

down sa-e (routine d'ecriture dates 
suivantes) 

up cell oa-k (derniere echeance dans $0, 

recalcul) 
ba-1 (positionner curseur) 

oa-L >c< oa-y >el4< rtn 
>"< sa-Q rtn msg ""> '. (imprimer la derniere 
echeance, fin) 
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Et voici les sous-routines, la plus imponante £ianl celle qui 
^crit les dates les unes k le suite des auires : 

b:<all Iveri cation avec 1' intruction 

SCFEEN) 
$0^screen ID, 1, 13 ; 
llnot $0^"AMORTISSEMENT" 

msg ' Le chler Tableur AMORTISSEMENT doit 

Stre ^ 1 'ecran ' : 
bell stop>'. 
c:<all {permst d' abandonner une 

saisie "getstr" avec ESC) 
it $0="" msg ' Abandon ' :bell stop >! 
e:<asp frouCine d' ecriture de date} 

begin (debut bauds) 

if m>12 tsi nouvelle annuel 

m=J : a =a + 1 : rpt (ren um^roter J 
endif 

if a>99 Isi nouveau siecle) 

a-0 rpt slse 

e=e-i (decrementer les echeances) 

if e=0 endmacro {arret de la boucle) 
else 

>"< (on Impriniera tin label) 

if j<10 print : endif: finserer un z^ro 

au besoin) 
print j >/< (Imprlmer le jour) 
if m<10 print : endif (inserer un zero 

au besoin) 
print m >/< jn=m + J ( imprimer le mois) 
if a<10 print ; endif 
print a : f imprimer I'annde) 

down 

rpt> ! (recomniencerl 
f:<asp (cas d' un rsglement camptant) 

sa-0 down down down down down 
$0^"COMPTANT" sa-0 down 
>" < rtn (effacer lei) 

ba-2 (positionner curseur) 

down down down down down 

oa-B >b< oa-9 up rtn ton efface la colonne) 
>"< sa-0 rtn (on imprime la lere echeance) 
msg ' Un moment, svp ': 
oa-k ba-1 msg stop>! 

Les macros qui suivcnl calculeni le nombre de jours dcouISs 
enire deux dales donndes. Vous pouvez iravailler sur le 
fichier /amoftissement, et les rdsultats s'inscrironl 
aulomaiiquement dans ia page pr^vue ^ cet effet. Mais vous 
pouvez aussi prendre un fichier de Base de donndes avec une 
colonne de dates en format BdD AppleWorks, et la macro 
s'adaptera automaiiquement S ce fichier. 

Le secret est la variable p^peek scGb, qui est i 3 si le 
fichier est un Tableur, et ^ 1 s'il est une Base de donndes. 
En jouant avec cette variable, ainsi qu'avec le drapeau g 
0, 1 ou 2). on arrive k couvrir tous les cas de figure. 

La macro <ba-D> est la macro de lancement, et apr&s 
quclques verifications elle envoie k la macro sa-j qui est la 
boucle principale du menu horizontal type AppleWorks, 
dans lequel on circule avec les flfiches ou la souris. el ou 
I'on valide le choix avec RETURN, en cliquant ou en 
lapant I'initiale du choix. Un message supplfimeniaire 



s'inscrit ligne 23 pour prSciser s'il s'agil de la saisie de la 
Dale 1 ou de la Dale 2. 

La boucle du menu est aussitSt suivie de la routine sa-x 
d'ex&uiion. Vous disposez ainsi d'un module standard pour 
vos auires applications. Pour consiruire un menu 
horizontal, il vous suffira d'adapter les valeurs des variables, 
el le tour s^ jou£. 

Vicnnenl ensuiie les trois sous-routines d'exdcution sa-i, 
sa-2 el sa-3, avec leurs diverses options qui, selon les 
valeurs de p et q, envoient k leur tour a des sous-routines de 
"traitement" de donnSes. Les lignes des macros soni 
commentfies pour vous aider k vous y retrouver. 



Combien y a-t-il de versions 
d'AppleWorks ? 

Apple Computer et Claris Corporation oni autorisS les 
versions officielles d' Apple Worics suivanles : 

U.S.A : 
Ilalien : 
Fran53is : 
Allemand 
Espagnol Ouest : 
Espagnoi Esi : 
Can^ien francais :1.2 
Su^ois : 1.2 



LO. LOR, l.I,L2, 1.3,2,0.2.1,3.0 

L3, L4 

L2, L3. 1.4 

L2. 1.3. 1.4 

L2 

1.2 



De plus, il existe k ma connaissance au moins deux 
versions non-auloris^es en langue dtrangere : 

HSbreu : 1.0 
Bulgare. 

II existe aussi des versions non-autorisfes amSricaines 
(dai&s du 28/11/83 et du 12/12/83), qui onl sans douie 
6tfi mises en circulation par des personncs charg(*es de 
tester des versions beta. 

La production de touies les versions filrangferes (en 
langue non-anglaise) d'AppleWorks a feifi arrcife vers 
la mi-1987. Les nouvelles versions fransaisc 3.0 et 
allemande 3.0 (r^alisSes par Daniel Lurot — voir la 
revue Pom's et la letire de Dimitri Geystor dans 
I'AppleWorks Forum du 3 avril 1990) soni cependant 
parfaitement 16gales, car elles onl recours k un 
programme special qui modifie la version officielle 
am6ricaine3.0. 

La version bulgare employee en Union Sovlfilique 
n'esi absolumeni pas autorisSe par Apple. Mais que 
dire alors des "clQnes" Apple II sur lesquels toume ce 
logiciel 1 

Cela fait, sauf erreur, 26 versions officelles ou 
officieuses d'AppleWorks. Si vous en connaissez 
d'aulres, faites-lc nous savoir. 

Randy Brandt 
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Enfin, Lrois routines qui peuvenl Stre utilis^es dans 
/AMORTissBMENT 6c fa^oH auionome : #0-2 et 

#(5-3. Elles affichent respeclivement la page de rdsumd, le 

tahlean d'airinni'i'ii'mp.nl pi In naop nn B'Aril la rjjff^rpnrp 

tableau d amorussement eL la page ou s'&nt la difffirence 
entre Dl et D2. 

Pour lancer I'appUcation, compilez, tapez #-OpUon-D, el 
laissez-vous guider par les insLniciions du menu horizontal. 

Variables utilises ci-apr6s : 

e, /, g dimenslonnemenl du menu ; 

t 
p 

?i, 

S3, $4, $5 
$6, $7 
$B 
X 

y 

z 

j 

m 
a 

V 



begin k^key 



fboucle de selectioni 



compteur du menu ; 
variable provisoire "peek" ; 
$2, S3, $4 55 chalnes du menu quand menu acilf ; 

jour, mols annfie pour Dl et D2 ; 
Date 1, Date 2 ; 

Indication pour affichage ligne 23 ; 
jour 

Date 1 



Date 2 ; 



mois 
aiin^ 
jour 
mois 
ann4e 

drapeau Date 1 / Date 2 ; 
nombre de Jours au mois donn6 ; 
nombre de jours de retard. 



<bs-d>:<all iDemariragel 
clear : q=l fdrapeau Date 1) 

p^peek Sc6b if p^l goto sa-j else (si 
BdD) 

Ifnot p=3 msg "":stop endlf (si nan Tableur) 
sa-b (flohler AMORTISSEMENT svp) 

ba—1 (on place le curseur} 

oa-L>c<03~y>v?<rtn 
right right right 

>0< rtn left left left (an met a zero la 

valeur precedente) 
oa-b>b< up rtn up (et on efface les dates 

preceden t es ) 
goto sa-j>! 

j!<all Iboucle principale du menu) 

If q^l S8="Date 1" else 
If q^2 $8'"Date 2" endif 



bell 
$1 - 
$2 - 
?3 - 
$4 = 
S5 = 



(On prepare le menu horizontal} 
Selection ; "+$8+" "s 
Saisie de date : 



Lire une cellule " 
Taper au clavier " 
Date AppleWorks " 
msgxy 0,23 : msg SI * «A» 

(message ligne 23) 
poke S?d5,$a0 
e=I9 f^36 g=23 
t-1 (caler le compteur 
sunscreen 1, 1, 3 
p-peek Sc6b 
if p=3 and So-"Fic" 
then g^21 endif ( 

msg S2+S3+$i+S5: 
hilight e,g,f,g 



msgxy 0,123: 

(Clic = BTN) 



a 1) 



(lire code fichier) 

(si Tableur ; 

( pav^ en ligne 21] 

(aff icher les choix) 

(allumer le pavS) 



(Mouvements du pav6:) 



if k^27 goto sa-K else (sortie par Esc) 

if *r=2J and t=3 (on est au bout) 

rpt else 
-f - 

if k^Zl 

t=t-H e^efJS f^ftia fsaut a draite) 

hilight e,g,f,g rpt else 

if k'^S and t=J (on est an bout) 

rpt else 
if k^B 

t=c-l e=e-18 f^f-ia (saut ^ gauchel 

hilight e,g,f,g rpt else: (Choix par 

Initiales :) 
if Jc=76 or k'^108 (Lire) 
then t=J goto sa-x else: 

if k^S4 or k-lie (Taper) 
then t-2 goto sa-x else: 

if k=6a or k^lOO (Date ) 

then t=3 goto sa-x else: (Choix par RTN :) 
if k-13 goto sa-x 

else rpt>! (refermer la boucle) 

x;<all (Execution du choix) 

oa-q rtn : (retour aux conditions normalesl 
if k^27 msg ' Abandon ' :clear : endmacra: 

else: (fin si Esc) 
if t"! goto sa-1 else (lire la cellule 

avec cell! 

if t=2 goto sa-2 else (taper une date) 

if t=3 goto sa-3>! (inserer date actuelle 
AppleHorks) 

l:<all(Lire une cellule par la fanction "cell") 
bell 

if p=3 (si Tableur) 

ba-2 (positionner curseur dans colonne. . .) 
down down down (...des dates) 

endif (on cent inue dans tous les cas) 

msg ' Placer le curseur sur la date, puis 
RTN ou clic ' ; 
poke $7d5,SaO (Clic = RTN) 

begin k=key 

if Jc=S or k-10 or k^ll or k^21 (fleches) 
or k=138 or k=139 (pomnie- fleches) 

or Jt= 9 or k=13? (Tab ou Pomme-Tab) 

print chrS k : else (repercuter la touche) 
if k-27 bell msg ' Abandon ' : clear : stop 

else 
ifnot k^l3 
rpt else 

cell (on lit la date) 

sa-d (on la fragmente) 

if p^3 and q=l (si Tableur) 

ba-1 (on repositionne le curseur) 

oa-L>c<oa -y>v6<rt n 

>"■: sa-0 down (on 6crit Date 1) 

goto sa-j (on part chercher Date 2) 

else (sinon) 
if p=3 and q=2 

ba-1 (on repositionne le curseur) 

oa -L>c<oa -y>v7<rtn 

>"<sa-0 (on ^crit Date 2) 

q=0 goto sa-w else {calcul de la difference) 
if p=i and q^l fsi BdD) 

q-'2 goto sa-j 
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eJse 
q-0 goto sa-w>! 

2:<all (Taper une date) 

bell 

msg ' Tapez la date, format JJ/MM/AA. puis 
RTN ' : 

p^3 (il faut p^3 avec ce 

format de date pour que sa-d fonctionne 
correct ement J 

if q=l 

SO^getstr B: sa-c 

>"< print $0 : rtn sa-d q^2 down goto sa-j 

else 
If q^2 

$0=getstr B: sa-c 

>"< print $0 : rtn sa-d q^O goto sa~u>.' 

3:<all (Date actuelle AppleWorks) 

if p=l $0^date2 else 
if p^3 >■•< date2 rtn cell endif 
p-3 (il faut p=3 avec c& 

format de date pour que sa~d fanctionne 

correct ementj 
if g=i 

sa-d q=2 down goto sa-j else 
if q=2 

sa-d q=0 goto sa-w>! 

d:<all (Definit les variables jour, mois, 

if p=3 and q^l 

S3=left $0,2 : x-val $3 : 

S4=mid $0,4,2 : y=vai $4 : 

$5=mid $0.7,2 ; z^val $5 : 

S6=S3+"/"*$4+"/"+$5 : 

else 

if p-3 and q-^2 

S3=left $0,2 : j=val $3 : 

Si'-inid $0,4,2 : m=val $4 : 

55=raid $0,7,2 : a^val $5 : 

$7'$3+"/"*$4*"/"*$5 

else 

if p=l and q=l 

$3^1efc $0,2 : x=vai S3 : 
S4^iaid $0,4.3 : sa-g : y=val $1 : 
S5=mid $0,8,2 ; sa-g ; z^val $5 : 
S6^$3<-"/" + $4 + "/" + $5 : 
else 

if p=l and q~2 

53-left $0,2 : j^val $3 i 
$4^!T}id $0,4,3 : sa-g : m^val $4 ; 
$5=mid $0,8,2 : sa-g : a^val $5 
$7=S3*"/"+$4+"/"+$5 

endif p=peek Sc6b>! (en sortant, on retablit 
le p appropriel 

wKall (Traitement des elements de la date) 

msg "": 

if a=z and m=y and j<x goto sa-u else 
if 3-z and m<y goto sa-u else 
if a<z goto sa-u else 
right right right 
goto sa-z>! 

u:<all (Si Datel posterieure a Date21 

bell 



msg ' Date 3 posterieure S Date 2. 

Recommencez ' i 
stop>! 

z:<all (Routine de calcul du nombre de jours) 
n-j-x 
begin 

if a=z and y=m (si Tableur) 

and p=3 

print n:rtn bell stop else (m^me annee, 
m§nie mois) 

if a~z and y—m (si BdD) 

and p"! bell 
msg ' D2 - Dl ('+$?+' - '*$6*-) = ■ ^st^S 
n*' jours (valsur dans variable n) ': 
else (dans les cas suivants, il faut 

incrementer) 
if a~z and w>y 
sa-v rpt else 
if a>z and y=12 
Z'-z*l y=0 sa-v rpt else 
if a>z and y<12 
aa-v rpt >! 

v;CaJ.i fSous-rout ine d' incrementation 

mensuelle) 

If z=92 or 2=96 and y=2 (annees bissexci les 

et fev) 
v~29 yy+i n=n-*v 
else 

if y^2 (annees n on -bissextiles et 

fev) 

v-2e y~y*l n^n+v 
else 

if y=4 or y=6 or y^9 or y^ll (mois de 30 

Jours J 
V— JO y^y*l n=ntv 
elss 

v-31 y-y+I n=77+v >! 
g:<adb (tableau de traduction des mois BdD 





en 


format 


JJ/m/AAl 




if 


$4= 


"Jan " 


54 = 


"01 " 




eise 


if 


$4= 


"Fev" 


54 = 


"02" 




eise 


if 




"Mar" 


54 = 


"03 " 




else 


if 


54 = 


"Avr" 


54= 


"04" 




else 


if 


54- 


"Mai" 


54 = 


"05" 




else 


if 


54= 


"Jun" 


54= 


"06" 




else 


if 


54= 


"Jul" 


54= 


"07" 




else 


if 


54= 


"Aou" 


54= 


•08" 




else 


if 


$4= 


"Sep" 


54= 


•09" 




else 


if 


54= 


"Oct " 


Si= 


"10" 




else 


if 


54= 


"Nov" 


54 = 


•11" 




else 


if 


54 = 


"Dec" 


54= 


•12" 


> 





Les macros suivanies affichenl respecuvement les trois 
&;rans de iravail : 

<ba-l> ! <asp (Pesumel 
oa-< oa-l>! 

<ba-2>!<asp (Tableau d'Aniortissement) 

oa-< oa-1 

oa-right oa-right 

oa-dovn oa-doun 

oa-left oa-up> ! 
<ba -3> :<asp (Dates) 

oa-> oa-1 >! 
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SirietSc-BSan 



Tous les specialistes s'accordent a le dire : 
le Mac est la machine a communiquer par 
excellence. Depuis qu'avec le MacPlus, 
Apple a incorpore en standard les 
protocoles necessaires a una mise en 
reseau simplifiee, nul n'a besoin d'etre 
expert pour relier 2, 3, voire 100 Mac, et 
surtout les faire se parler. Cette facilite ne 
doit pas toutefois faire oublier la necessite 
d'une etude tres stricte des besoins, avant 
de se lancer dans un cablage qui risque de 
se reveler inadequat. 

Tout a commencS par une 
imprimante... 

En meme lemps que le Mac+, Apple nous a proposS 
rimprimanie LaserWriter+. Ce ful une veritable revolution, 
par la nature mSme de rimprimanie, qui allail faire exploser 
un nouveau marchfi avec la PAO, mais surtout par la 
possibility de partage dudit pdriphfirique entre plusieurs Mac. 
Les ingredients ^taicnt \k pour une entrfie rapide en 
entreprise. Le rfiseau sortail cnfin des limites de la grosse 
informatique. Terminaux dSdies, protocoles complexes, 
c4blage couleux, appartenaient d6sonnais au pass4, et Vtis 
des "Groupes de travail" prenait sa pleine signification. 
Mais, concrfetemenl, si nous parlions rfiseau pour Mac ? 

Faire parler les Mac en 
LocafTalk 

Un rdseau informaiique quel qu'il soit s'arlicule loujours 
autour de deux axes : I'un mai&iel, avec la connectique, ct 
I'autre logiciel, En fait le protocole AppleTalk est 
totalement inddpendant du support physique qui v^hicule 
r information. II est done possible d'utiliscr loutes les bases 
existantes, meme si le Mac n'inlegre dans sa configuration 
d'origine que la possibilil6 d'utiliscr le port imprimante, et 
done un cUblage du type paire torsad6e, Mais, avec les cartes 



et boitiers d'inlerface ad^quats, tous les auires types de 
cables sont pcrmis : cable Ethernet, coaxial, fibre optique, 
voire syslfime infrarouge ou meme radio. Dans cette 
premiSre partie du dossier, je ne vous parlerais que des mises 
en liaisons simples sur paires torsadSes. 




La connectique : 
cables et boitiers 



Les cables 

Deux types de cables peuvent 6tre utihs^s : 

Premiere solution, le cable Apple, qui emploie des fiches 
miniDin d chaque extr^mite. C'est le type de cSble le plus 
fr^quemment utilise pour des petils nSseaux. dont la distance 
entre les postes n'exc&le pas quelques mfetres. Les cables 
standards peuvent Stre rallongSs facilement par des doubles 
prises fcmclles miniDin qui permetlent de mettre bout ^ 
bout plusieurs cables. 

Deuxijime solution, plus intdressante en entreprise, le cable 
dil "simple paire torsadfie". Ce cable est celui qui se reirouve 
dans les ills teiephoniques ordinaires. II est done possible 
soit de se servir d'un cable spScifique — tel que le 
commercialise la soci^tS Farralon sous le nom de cable 
Phonenet — soit d'utiliscr du cable tdl^phonique banal. 
L'avantage de cette demiferc solution est de pouvoir utiliser 
une paire libre souvent pr^sente dans les installations 
teidphoniques existantes, sans avoir ^ tirer de nouveaux fils 
(ce qui pcut coilter trfes cher, surtout dans les vieux locaux, 
oi les chemins de cables sont frdquemment inexistants). En 
bout de cSble, on se servira de prises type RJ 1 1 males, 
comme on en trouve sur tous les syst&mes t^iephoniques 
d'ouire-Atlantique. Le cable doit Sue serti dans la prise ^ 
I'aide d'une pince spSciale. 

Les boitiers 

II permeitent de faire la jonction entre les cSbles et les 
machines du rdseau. lis contiennenl des composants 
dlectroniques passifs, resistance et self pour maintenir la 
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charge £lectiique et supprimer les effets d'dcho. Deux types 
existeni suivanl le type de c^btage choisi : les boltiers 
LocalTalk, comportant deux miniDin femelles et une 
minlDin m^e, et les boitiers Phonenct, dont les miniDin 
femelles sont remplacto par des RJ 11 males. 

n est loulefois h noier qu'Jl rim^rieur d'un mSme rfseau, les 
deux sortes de cables/boiilers peuveni etre mix6s, par 
I'emploi d'adaptateurs ad^quais, permetiant de passer des 
miniDin aux RJ 1 1 et vice-versa. 

La deuxiEroe difTdrence fondamenlale entre les deux modules 
de bolliers lient dans la resistance de lerminaison. En effcl, 
I'imp^dance du cable doit etre de 120 O (ohms). Pour 
maintenir cette impedance, il est ndcessairc de disposer d'une 
resistance de cette valeur en bout de cable. Les bolliers 
LocalTalk disposent de cette resistance qui est auto- 
matiquement hors circuit lorsqu'on connecie un cable au 
boitier. C'est pourquoi il ne faut pas consiituer de "bras 
mort" avec un cSble doni une extrdmit^ ne serait relide k 
rien. Pour les boUiers Phonenet, la resistance de 
terminaison est exteme et doit tae plac6e suivanl n^cessiEf 
sous la responsabilitd de Tinstallateur. 




Les topologies, ou 
un bus pour les etoiles 



II ne suffit pas d'avoir les bons cables et les bons boiticrs 
pour savoir comment les brancher. Ici aussi, soivant le 
c^blage choisi, deux types de ce qu'on appelle la lopologie 
de c^blage — c'est-i-dire la manifire dont les postes sont 
relics entie eux — peuveni exisler, voire coexister. II s'agit 
de la topologie en bus et de celle en ^toile. 

La topologie en bus 

La plus courante. et la seule disponible avec les cables el 
boTtiers LocalTalk. Ellc consiste ^ chalner les machines de 
telle mani&re que le cSble arrivant i un boitier d'une 
machine reparte k une autre machine par le m&me boitier. 
Cette disposition rappelle un 'T". Le cable ne doit jamais 
Sire refennd sur lui meme. 

Toujours avec une topologie en bus, le cSblc Phonenet ou 
paire teiephonique lorsadde, auiorise I'utilisation d'un cable 
principal, dit dorsale, sur lequel on conneciera des prises 
murales RJ II, femelles. Un cable dc jonclion RJ 11 
male/m§le fera la jonction entre la prise murale et le boitier 
Phonenet. La dorsale ne doit aussi jamais faire bouclc sur 
elle-mSme. 



Les StoHes 

Le principe est dilTerent : d'un point central partem autant de 
cables qu'il y a de postes k connecter. Les cables sont rclids 
entre eux fil k fil au point central. Chaque branche de 
retoile peut, ou non, etre un cable bus. Ce type d'^ioile, 
diie Stoile passive, peut etre amdlior^e grSce k un controleur 
d'dtoile pour devenir une eioile active. Deux marques 
proposenl ces controleurs : Farralon avec le SlaiConlroler et 
Nuvotech avec le TurboSlar. Je vous parlerais un peu plus 
loin de ces contrdleurs. 

Quels systdmes, pour quels 
cas ? 

LocalTalk 

Pout les lous peiils rSseaux, jusqu'i dix postes. la solution 
la plus souvent retenue sera celle des kils LocalTalk. Ce 
systfime a I'avantage d'etre d'une mise en ceuvre immediate 
et, I'ajoui ou le retrait dc quelques postes sont quasi- 
inslanlands. 11 pr6sente n^anmoins deux d^fauis. Un d'onlre 
esthdiique : c'esi avec cette configuration qu'on voit le plus 
souvent trainer des iils dans les bureaux. Le deuxidme est 
que la ddconnexion d'un point risque de provoquer de graves 
perturbations dans le rdseau, d'une part par la coupure 
physique dans le rdseau, et d'aune part par le changement 
d'impddance dans le circuit r£siducl. 

Phonenet 

La possibilild de lopologie en vrai bus — ou en dtoile 

passive ou active— ei la faculty d'ulilisalion eventuelle 

d'une paire Ubre tdldphonique font de Phonenel le systfeme 

de mise en rdseau le plus frfiquemmcnt adopid dans les 

movens el ems rdseaux Macintosh. L'inifirel majeur reside 
moyens et gros rdseaux Macintosh. L'intdrel majeur reside 

dans la possibility de Ciiblage en vrai bus. Dfis lors, la 

ddconnexion volontaire ou accidcntelle d'une machine du 

reseau n'affecle en rien le fonctionnement de ce dernier. 

Pour ne pas se perdre dans les 
etoiles 

II n'est pas rare que les gros rdseaux comportent plus d'une 
centaine de posies. Si la lopologie en dloile le permet sans 
probl^mes de cablage particulier, la longueur de chaque 
branche peut atteindre plusieurs centaines de mdires, sunout 
dans des immeubles k plusieurs dtages. La distance entre les 
postes extrSmes peut avoisincr le kiiomfetre. La topologie 
en dtoile passive n'est alors plus utillsable : les signaux 
dleclriqucs subissent un affaiblissement trop important. 
L'utilisation d'un contr61eur devient obligatoire. Ce type 
d'appareil permet au signal provenant d'un posle d'etre 
rfigdndrfi, avant d'etre renvoyd dans les auires branches. 
Chaque controleur peut reprdsenter le point central d'une 
quarantaine de posies el il est possible de connecter entre 
eux plusieurs de ces conlrSleurs pour arriver k d'dnormes 
configurations en nombre CI longueur. 
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Pour prendre la bonne route 

Avoir un signal de bonne quality est une chose, le recevoir 
dans des dfilais raisonnables en est une aulre. Un 
encombrement excessif d'un rfiseau peui faire chuter ses 
performances de manifere speciacuiaire. Lorsque plusieurs 
ulilisateurs dfeirent. par exemple, imprimer simultanSment, 
ils peuveni en arriver (bien malgrd eux) a praiiquemeni 
paralyser un r^seau s'il n'est pas correctement con?u. Pour 
fiviier ce genre de problfemes, une des solutions consiste ^ 
d&ouper le r6seau en peiites sous-unitSs appel6es zones. Ce 
d^coupage est confifi k des boiiiers dits "routeurs". Le 
ddcoupage en zones rdpond en gdnfiral — tout au moins 
devrait y ripondre — ^ la notion de "groupe de travail". Ces 
boitiers oni pour mission d'dviter k rinformaiion de cLrculer 
dans des zones ou elle n'a ricn k y faire. Le modfite le plus 
connu est InterTalk de Farralon. II est possible d'obtenir par 
logiciel le mcme rfisuliat grace ii Apple Internet Router, 

Des ponts pour d'autres univers 

II sera aussi souvent nficessaire de relier un r^seau LocalTalk 
k d'autres rfeeaux d'enireprise, Ethernet en paniculier. Cette 
interconnexion sera confix & un boitier passerelle ou pont. 
Comme son nom I'indique, ce boitier fail la jonction 
physique entre les deux types de cSblage et est charge de 
faire la conversion 6ventuelle des donnfies dans le protocole 
de destination. 



Quelques autres boftiers 

La raison d'etre d'un r6seau est le panage des ressources, 
lanl logiciellcs que materielles. Pourtanl certaines de celles- 
ci ne sont pas directement accessibles. C'est le cas des 
pfiriphiSriques utiUsanl les ports sdrie, tels que modems, 
boiiiers convertisseurs de protocoles. imprmanies 
malricielles. tables tra^anies et j'en passe. Les boiiiers 
serveurs de port s6rie lels que Multiialk de P-Ingdndrie, 
NetSdrial de Shiva distribud par Alpha-Systfemes, mettent k 
la disposition de tout utilisateur connect^, ce type de 
pdriphdriques. 



AppleTalk Phase 11 a permis de faire passer le nombre de 
255 postes thdoriques sur un mSme riSscau, k 16,5 millions 
de postes. La viiesse ihdorique qu'on peut espdrer sur une 
paire lorsadde ordinaire grace k ce protocole aueint 230,4 
Kbits/secondes. Ce qui correspond k peu pr6s aux viiesses de 
lecture d'un lecteur de disquette 3,5 pouces. Apple propose 
une interface Ethernet diie ElherTalk, qui pcut faire monter 
ce chiffre k 10 mfigabils/seconde. Sans enlrer dans Irop de 
ddiails, AppleTalk. rdpond parfaitement aux spdcifications 
ISO en la matifere. Ce protocole est du type sdrie gdr^ par le 
port RS 422 du Mac (ou port imprimante). II permet de 
travailler sur une longueur de 300 mfetres. Faisant partie 
intdgrante du systfeme. c'est lui qui sera sollicitd par louies 
les applications ddsirant acc&ier k des ressources pariagfes. 
Ces applications seront de deux types. Celles rdellement 
estampilldes "rdseau". el les aulies. 

Les applications de rdseau 

Les serveurs de fichiers et de 
messagerie 

Ces applications sont destindes ^ mettre k la disposition des 
machines de rdseau des fichiers rdsidant sur d'aulre{s) 
poste(s). Ces serveurs sont soil dddids, c'esl-S-dire qu'ils 
immobilisem la machine serveuse k cette seule tSche, soil 
non dddids, oil chaque posle peut meiire tout ou partie de ses 
fichiers k la disposition d'autres ulilisateurs, sans bloquer 
I'uiilisation du poste. 




Et les logiciels ? 



^ a Le dictionnaire 
Quartet Systems 

du Macintosh 

anglais-frangais 



Porficnpt HgpW'twt* Mir* ,n pig* 

Si HIS OU CLDT paseni des 
pmbl^mesd votrtdiciionnaire 
habituel-si voii.sii'y irouve/pii.'i 
ny-litleHUEei HSv'-s'ilrn? 
connail \rjs les ressources FRSV (lu 
PTCH pt'ui-eire - s'il ne dit p.Ls ce 
(jiic tiiniiL'ni iilO- s'il ne (ail pa'i la 
di H ere nee en ire asciicircum ei 
circumflex - si siacksniffer el 
reirofil lelakfnip;mini,'.-si pour 
lui regisiralion tnark esi aussi clair 



que leSiandard File Package (lu ie 

CiaCdesCD-Roni,- 
.^lors, renoncez au Man. 
Ou change?, de diclinnnaire., 

Dictionnaire 
Quanei'Systems 
du Macimush 
210 pages A5,.s<iriLe le 10 otinbre 
1990. Turifde.souscripl ion 
iu,squ'aii 30 sepicmbre : 180,00 F , 



invisible mais present : 
AppleTalfc 

Vendu avec le Mac, ce protocole de rdseau est inclus dans le 
systdme de chaque Mac. Toialement transparent, rutilisateur 
de base peul ignorer jusqu'S son existence. C'est pounxint 
lui qui fait qu'un Mac peut imprimer sur une Laser 
partageable. La rdcenie mise k jour d'AppleTalk en 



L |e dtelre recwoli une doaimenutlon siif If dlcHoimaire, et le caulogiic QUcUM-Sirawms 
□ |e comnnnde le DIaionnslic Quartw-Syweras du Maclntosli : 230,00 f , port 20,00 F 
(avanileSOsefnembre IW. Hiiiscitpilon 180.00 F| 

Norn; -- ■ 

Adresse! ■ ■ 



cHqjcloInt 
cane de oMK : 



Eip!__ / 



a. me deTauiisnan 
84000 Avignon 

Tel. : 90 27 00 76 — : 90 27 1 13 — Seiveur Mlnlfel . 90 27 1 39 



Quartet-Systems 
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ki" Les SERVEURS DE FICHIEHS NON DtDies 

Le plus connu esl Tops. Ce logiciel, dfisormais enli&remenl 
compaiible avec les spdcificalions techniques d'Apple, 
occupe une u&s large pari du marchfi. II prfisente I'^nomie 
avanlage sur ses concurrents, d'exister aussi pour machine 
MS/DOS et slations Sun. Livr6 avec la messagerie Inbox, 
seule I'arrivge du sysi&me 7 avec son serveur non d€di& 
incorporfi risque de lui ravir la vedette. D'auircs produits 
moins complets existent : PSN est le plus connu. 

^ Lesserveuhsde rchiers Deoits 

AppleShare k I'enibleme de la # et 3Com sont les deux 
solutions les plus renconirfies. Je vous reparlerai de 3Com, 
dans la parlie Ethernet de ce dossier. Avec AppleShare, 
Apple i voulu dfifinitivement rassurer les grosses 
enircprises, car la culture informatique dc cclles-ci 

I'imposaiL On retfoiive sur ces legicieU les poncifs qui 6nt 

cours dans les services issus de la grosse informatique. 
Administiaieur, centralisation des mots de passe, privileges, 
restrictions d'accfes aux dossiers, groupes de travail sont 
autantde notions qu'un chef de service informatique "lourde" 
assimilera facilement, par opposition aux serveurs 
dScentralisis non dfidiis, sur lesquels il n'aura aucune prise 
et aura peut-etre I'imprcssion de perdre une partie de son 
Ime. Reste que pour les gros rfiseaux d'cntreprise, le 
systfeme de serveur cenlralisd reste obligatoirc, dans la 
mesure oil chaque utilisaleur dispose de dossiers accessibles 
en permanence, et chacun pourra ddposer des documents 
(sous reserve d'autorisations d'accds) dans ceux de ses 
colltgues. Touiefois, i! manque fitonnemeni h AppleShare 
une fonctionnalitfi indispensable : la possibility de 
sauvegarde automatique programmee, que I'administrateur 
devra faire obligatoiremenl manucllemenl. AppleShare reste 
un produit phare. d'une siabilite remarquable, d'autant plus 
qu'il existe aussi une version client pour PC, permettant 
aux compatibles "zib6hfemes" de partager fichiets et laser sur 
un reseau AppleTalk. 

^ Les messageries 

Trois produits se pariagent la vedette. Microsoft Mai! 2.0, 
QuickMail, et Inbox. Vous trouverez dans les news un 
aperfu de Microsoft Mail, et Marcelle Godefroid vous a d&jk 
parlS d'Inbox dans le numSro 49. nous n'y revicndrons pas. 
QuickMail sera traits d6s que dans son infinie bont6, P-Ing 
pour les intimes, daignera considiSrcr les lecteurs de Pom's 
pour autre chose que quaniiid ncgligcablc, putsque ce sont 
les importateurs, k moins qu'avant nous puissions en avoir 
un cxemplaire directement des USA. 

^ Les freeware et shareware 

Pour les tout pelits rdseaux, il existe des programmes k 
diffusion libre, souveni suffisants, pour quclques posies. 
Entre Public Folder, qui permet k tout utilisaleur de publier 
les documents qu'il veul mellre S la disposition des auires, 
Oscar pour envoyer des fichiers S un deslinaiairc spdcifique, 
SingleShare (que vous trouverez sur la disqueiie Pom's du 
mois), serveur k la PSN pour le prix d'un Shareware. 
NelChat, pour envoyer de petits messages, les GP (genlils 



programmeurs) meiient k la disposition des GU (gentils 
uijlisaieurs) leur savoir faire — pour des prix sans commune 
mesure avec les services rendus. Q n'est d'ailleurs pas rare, 
en parliculier avec Public Folder, de voir dans de grosses 
entreprises, Apple France pour ne pas la citer, se crder des 
sur-services, entre ulilisaleurs. 

^ LA FENETRE SUR u'EXrePIEUR : LE SSLECTEUR 

Dans la grande majority des cas, les ressources partageables 




Un reseau particulieremenl 
original esl en train de se 
metire en place aux Etals-Unis. 

Un programme (MacKDT/ mis 
au point par Ken Landau et 
Ricordo Botisto, membres de 
/'ACS /Apple Complex 
System/, permet d'acc4der a un reseau dans le genre 
de celui d'AppleUnk. 

AAais ce qui rend le sys/eme si particulier, c'est que les 
donnees ne courent plus les fils, mais se promenent 
dans I'air, sur les ondes. MacKDT utilise le reseau 
ARDiS /Advanced Radio Data Informalion Service/. 

Oe reseau, cree a I'initiative d'IBM el MotorcJa, 
permel a lout ordinateur equipe d'un modem radio 
UHF, d'acceder au serveur meme au milieu d'un deserl 
a condition que la portee soil suffisanle. Apple 
Iravaille acluellemeni sur ce type de modem afin de 
I'integrei dans le Portable. Au printemps prochain 
ARDIS couvrira grace 6 ses / 100 relais. 8 000 villas 
dons 50 elals. Les vitesses de transmissions son! de 
4,8 Kbits/s., mais devraient passer ulterieuremeni a 
19,2 Kbils/s. Les frequences ulilisees — de 800 a 
900 Mhz — permetteni un acces correct au reseau en 
tous lieux. Au niveau des services, ARDIS oHre lous les 
services telematiques couranis, comme les messageries, 
les acces aux banques de donnees professionnelies, et 
h connexion sur d'autres reseaux. 

On peul imaginer que dans quelques annees, ce 
reseau sera accessible de n'importe quel point du 
globe, par I'inlermediaire des satellites. D'autant que 
AAotorala travaille justement sur la mise en place d'un 
reseau telephonique qui couvrira la lolalila de la 
planete, sans le moindre fil a la palte I En attendant et 
pour plus de renseignements, vous pauvez loujours 
contacler ARDIS au : J 708 913 1 21 5 (USA!. 
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— qu'ils s'agissent de serveurs de fichiers, de messagerie, de 
ports sfirie, de communication — sont accessibles par 
I'interm&liaiFe de I'accessoire de bureau Apple : le s^lecteur 
que vous connaissez tous, puisque meme pour une 
impression hors rdseau avec une ImageWriter, voire une 
Laser SC, vous avez k y passer un jour ou I'auire. Cet 
accessoire controle I'accfes au rcseau AppleTalk. permet de 
declarer son nom dessus, de s^lectionner toutes les res- 
sources accessibles, ei 6ventuellemenl de choisir dans une 
liste d'icones un 41fiment dans un ensemble de p6riph6riques 
d'un m&me type, quelle que soil la zone oH il se trouve. 

Les loglciels multi-utilisateurs 

Entrent dans cette catSgorie, les programmes dont les 
donn^es pourront Stre partagfes entre plusieurs posies. Ce 
sont avant toui les gestionnaires de bases de donn^es. 
L'fivolulion de ces logiciels, en particulier avec les produits 
Claris comme FileMaker, devraii aller vers des possibilit^s 
de partage, sans serveurs (dMids ou non). Pour les autres. 
dont FileForce, 4D, OmnisS et FoxBase+, ils nficessitent 
des serveurs parfaitement compatibles avec le prolocole 
AFP (Apple Filling Protocol). Depuis le passage de Tops 
en version 3, ils le sont tous. 



® 
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SchSma : les topologies de 
r6seau : le bus et I'fitoile. 



Ces programmes permetlent de faire du vrai muldposle, k 
savoir leciure/feriture avec mise k jour en temps r&el ei 
gestion des collisions. Pour les autres, il s'agira de pouvoir 
metire en commun un document sur lequel seul le premier 
utilisaieur pourra intervenir, les auires ne pouvant iravailler 
qu'en consultation, sans mise ^ jour en temps rdel. Dans 
cette catdgorie, on trouve les tableurs, avec Excel, Wingz. 
Full Impact, les traiiements de lexte, Word. MacWrite II, 
Nisus, et les autres. Pour HyperCard, une pile sur un 
serveur sera vuc comme verrouillfie par les utilisateurs. Ces 
logiciels nScessitent tous I'aide de serveurs de fichiers pour 
pouvoir partager des documents. 

Ce dossier est loin d'elre exhaustif, et je n'ai pas voulu 
entrer dans les details trop techniques tels que le codage de 
donn^es sur un rgseau, le mode de circulation des 
informations, I'Apple Filling Protocol, les sept couches 
ISO, etc. Si la demande s'en fait seniir, je reprendrais 
volontiers mon clavier pour vous en parler. 

La deuxifime partie de ce dossier sera consacrfe S Eihemet, 
son cSblage, ses spficificitds, ses avaniages, et ses 
inconv^nienis. "^^^^ 

<5Da 



Communiquez en gardant 
votre format... 

Vous venez de farre une superbe mise en page sous 
AppleWorks, ou bieh un tableau contenant une 
armee de calculs, ou encore une base de donnees 
avec une foultifude de categories qui tiennenf {usfe a 
Tecran, Et voildi qu'ii vous fauS h passer sur un PC, 
KT, AT PS/2 ou outre compatible, et vous §tes 
desesper^, car vous allez perdre tout volre'travail : le 

formotage de vos Isxtss et vos formuiss et valeurs, : 

sans compter foules les fieures que vous venez de 
passer o travailler amoureusement et que vous devrez 
6 nouveau consacref d vos fichiers, peut-etre avec un 
peu molns d'amour. 

Et bien non I Tout ceci n'esf qu'un mauvois r§ve 
puisque Cross Works vient vous d^livrer de ce 
mauvQi cQuchemor. 

Cross Works vous pemiel de transferer vos fichiers 
AppleWorks en conservani les formulas e! les 
formats de lextes. Vous pourrez ainsi les rfcuperer 
avec de nombreux logiciels tels : Microsoft Works, 
WordPerfect, Lolus-l-2-3, DSase 111, 111+, iV, ou 
encore Paradox, Fox Base, Clipper... 

Cross Works eftectue b conversion des fichiers en 
local par rintermedloire d'un cable reli6 entre votre 
//e|port5CSl),-//coullGS, en IQJOObauds. 

Cross Works est d'utilisation Ires facile et ne 
n6c6s5ite que tr§s peu de temps pour son 
apprentisscge. 

Cross Works est livre avec un cable universel 
reliant les potts communication des deux micro- 
ordinoteufs, des disquetles 5,25" et 3,5' pour Apple 
el PC et une documentation en anglais, Le logiciel est 
lui-meme en artglois. 

Son pris est de ] 500 F TTC ( 1 400 F tarif Jocker). 
Pour c<xnmander ou obtenir one documentation, 
renvoyer ce bon au journal ; 

a Je desire recevolr une documentation 

□ Je desire commander Cross Works 
Je r^gle par : 

a Cheque 

□ Carle Bleue/Visa/Eurocard/Mastercard 

Num^ro : 

Expiration: / 

Nom : , 

Pf^nom : 

Adresse : 

n° de carte Joker : 
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A*pple2000 
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The All Apple User Group. 

^ Apple2bpp is a Founder Member of the Apple User Group Council 
I and a member of the British Association of Compulef Clubs, 

Apple2()()0 is the largest Apple User Group in the I K. 
Menihership Ls <)pen io all Apple Users — individuals, 
husiness users t)r educational eslablishiuents. 

An independent non-profit ninking group, 
run by experienced, professional people who care 
— inchuHng specialists in Computer Sciences, 
The Law, i:ducatii»n, Connnuuications, Mnance, 
Management and all aspects* of Business. 

As a incin!>cr you w ill rccicvc; 

^ ^.•'Appk'iODO". the Group s bi-inoiithly inaga/iiu" 

^^ 'vVp]>kr Sliccs' i the droup's bi-fTionthly ncwj>leticr 

hitrodiit tory disk and P.I), library oatalo^ut^ 
Hotline probk'iii st'rvicc 
Access to "TARBS", our Apple litillctin Boaid System 
\ccess to the UK's largest Apple PnI)Iic Dotiiain SoUwarc libr.uA 
I Ki r rn sniur — ollVr iiukukd in all riienibership packs 

Cost of EEC Membership is just .t35.00 per year. 
Payment by^ cheque, MasterCard or VISA account. 

Please itidk riic your disk preference - — Apple II, Ilgs or Macintosh 




04 





Phone: *di-S U928- ii 
lax: .j.j-51-949-0307 

Modem: 44-225-743797 
xVpplel ink a K): BASl G.l 
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Si vous suivez un peu I'actualite 
inform ati que. vous aurez suremeni remarque 
la montee en puissance des ordinateurs 
personnels. L' Apple IIGS n'echappe pas a 
cette regie. Avec la sortie du nouveau GS et 
le nombre croissant des cartes d'extension 
memoire, il devient aise de meltre 2 Mo 
voire plus dans votre ordinateur favori. Si 
par centre il vous reste un zeste des 
bidouilles acquises lors de I'utilisation de 
votre relique d'Apple II et, par dessus le 
marche que vous n'avez pas un rond, alors 
vous chercherez a faire des economies... 

Quoique qu'en dise Apple, le IIGS peul s'uliliser avec 
768 Ko voire 1,2 Mo pour les riches. Mais dans ce cas, lors 
de rutilisaiion de I'^diteur de lien d'APW en parliculier, 
vous verrez apparaiire un message d'erreur fori ddsagriSable : 
'Out of memory'. C'est ragcani, surtout lorsque vous Sles ^ 
deux doigls de tester le loui nouveau programme que vous 
venez de terminer, ou plutoi dc d£bogger. 



Les solutions 



Pour rem&Uer ^ ce problfeme, il existe Q-ois solutions. 

Solution couteuse 

La premifere est la plus 6videnle el certainemenl celle qui 
vous donnera le plus de satisfaction. Allez acheter une autre 
carte d'exiension mdmoire qui vous permeitra de mettre 
4 Mo, comme cela vous serez ^ I'abri pour un certain 

iemps. Cetie soiuiion bien que ia plus sirfipie est sufeinent 
la moins subtile et celle qui fera le plus grand goufCre dans 
votre budget (Adieu les petils gSteaux). 



%pzay 

Solution bidouHle 

La seconde solution concerne seulemcnt ceux qui 
programment sous APW. Lorsque I'Sdilcur de lien travaille, 
il consomme 6norm6mcnt de mSmoire. Ccci est 
principalemeni du au fail qu'il charge la bibliothSque 
(library clib) pour essayer d'y trouvcr quelques sous- 
programmes k inclure dans voire programme. Si voire 
courage est aussi grand que vos connaissances pour la 
langue de Shakespeare, alors peut-£tre aurez-vous lu le 
chapitre concemant le Linker dans la documentation APW. 
Dans cc cas, la cr&ilion d'un script vous pcrmettra de ne 
charger que les biblioihfeques que vous aurez spdcifiSes. De 
cette fa?on. la memoire nc sera pas satur^e avec des donn&s 
inulilcs el vous fiviterez la ires dCsagreable eireur 'Out of 
memory'. 

Solution facile 

Enfin, la troisi&me solution tire parti des possibiliuSs 
intrinsfiques du IIGS. Cclte petite machine est en effei doii5e 
d'un Memory Manager, sorte de grand Gourou de la 
mdmoire. Toute application ayant besoin de mfimoire doit 
faire appel au Memory Manager. De cette fa^on, elle peul 
Stre rigoureusemenl ordonnfie (plaignons les galfiriens qui 
n'ont pas d'&juivalenl). Malheureusement. les applications 
lib^rent la mdmoire lorsqu'elles n'en oni plus besoin. Ceci 
crfe done des irous dans la memoire. Ces U'ous peuvcni tac 
rcutilis6s par le Memory Manager pour stocker d'aulres 
donnSes, mais ce n'esi pas le cas si les donndes k mettre en 
m£moire sont trop volumincuscs. De plus, certains blocs de 

denHigg Fgitgfil gfi miffloifg alors qu'ilg pouFiaieni eirs 

61iminds, Bref, tout ceci pour dire qu'il faut de temps en 
temps faire un petit peu de manage dans sa mdmoire. Pour 
cela un ordre du Memory Manager permet de compacter la 
mdmoire et de virer les blocs inuiiles. 

Cel accessoire de bureau (NDA) vous permet de voir la 
quantity de mfimoire disponible en octets et en kilo-ocieis, 
et en cliquant sur le bouton 'compactage' de faire du manage 
dans la mfimoire. De plus, I'affichage periodique de la 
quantity de mdmoire disponible vous permel de la voir 
dvoluer au fur el ^ mesure de I'utilisaiion de vos 

programmes. 
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* Ferine le NDA, * 
It** =— —== 

Close 



Compact.NDA 

». Ouverte 
** Compact vl.O id 1930 Joliciel F. Rozay*' 

" NDfl permettant de cannaitre la qaantice de 
memoirs disponible et de ** 
•' la compacter '* 

At UK 

*' Limitations: ** 

" Utilisable sous GS/OS 5.0 " 

** ■ * 

•* Apple II GS, APM - 65816, " 
•• Envlronnemenc GS/OS 5.0 

* » •* 

mcopy compact .macs 
objcase on 
long a on 

longi on Ignore 

* » 

* Quelques definitions, ' 

ZPage gequ $00 

• • 

* En-tete du Nda. ' 

t » 

DhID Start 

do i4 'Open • 

dc 14 'Close ' pf^ 

da 14 'Action ' 

dc i4'Init' 
dc 12' GO' 

do 12'$FFFF' ouverte? 

dc C — CompactSH*" 

dc il'13' 
end 

* Ouvre la fenetre du NDA, * 

Open start 

using Data 
using Window 

phb Ignore 

phk 

plb 

Ida DAActif 
beg PasEnRoute 

brl Ignore 

PasEnRoute anop 

Ida il021 
St a divise 

PushLong 10 jsr 
PushLong tWinParam 
_NewMlndow 
bcc Ouverte 
pla 



pla 
bra 

pla 
plx 
sta 
sta 
txa 
sta 
sta 



Ignore 



theWindow 
5,s 

theWindow+2 
T.s 



n 



GS 



isr 

Ida 
sta 

plb 

JTtJ 

end 



FirstControls 
DAActif 



start 
using Data 
using Window 



phb 
plb 
Ida 
beg 



DAActif 
Ign ore 



PushLong theWindow 
^KillControls 

PushLong theWindow 
CloseWindow 



stz 

plb 

rtl 
end 



DAActif 



PushLong theWindow 
_SetSysWindow 
! (utilisation de cut, copy, paste, ...) 



* Determine quelle action il faut faire * 



Action 



ptUt 



start 



phy 



tax 

(ActionTable.x) A executer 
pla 
pla 

rtl 
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ActlonTable 



do 



a nop 






end 


dc 


i 'Kien ' 








i 'Event * 


Cursor 


start 


dc 


i 'Run ' 


Menu 


entry 


SOL ' 




MUndo 


entry 


dc 


i 'Menu ' 


MCut 


entry 


dc 


i 'MUndo • 


MCopy 


entry 


dc 


i 'MCut ' 


MPaste 


entry 


dc 


i 'MCopy ' 


HClear 


entry 


dc 


i 'HPasts' 


fin 


rta 


dc 


I'MClear- 




end 




end 



* Action a effectuer toutes les secondes ' 

4 * ... . _ . 



. - ., — . , , r Kit 



* Evenements provenants de I'Event Mngr. ' 

** 'C== = == = = = = = i==r:== ====== ===== ==== = ======= 



Event 
EvtPtr 



Hun 



Ignore 



m 



start 
using Data 
using Window 

Ida >DAActif 
beg Ignore 

phb 
phk 
plb 

jsr 

plb 
rCs 



Te( , ^V.m Lqnu qiuupeea 



K-xH SONS SIMM 

K'llt lOONS SIMM 

K'xfl SIMM 

K'ifl HONS Sli'i' 

K'»H inONS SIl'l" 

K'»(i ]zm sipp 



I M-x8 8IINS SIMM 

1 H-iH IIIONK SIMM 

I wxn vms SIMM 

; M-sfl tlONS 3IPP 

; .M-sfi looNs gipp 

1 M-xd IZ'INS .SDT 



:i55.0C TTC 
:!lat)0 TT 
295 1)0 ITi: 

390 uo nc 

. ;1&&.I10 TTC 

3 If. 110 nr 

79ft (10 m 

mm rri' 

725 00 ITC 
825 00 Tit 

mm m 

7t5U0 TTC 



■ll&l 10 




21 00 TTr 


nm \2 


eiK'xi 


i'j.50 m 


■1161-15 




19 00 nt 


■lM(i'l-(i 




■15 00 rrc 


.114ti'l lU 


BIK-xl 


m m rrc 


■mei-i^ 




% m m 


11256-B 


256K'Sl 


ItS.OO TTl" 


II^WMl! 


2m- x\ 


19 50 rrr 


.|!2fili-l^ 


256K-XI 


19 50 TTi: 


■1125S- 15 


2f>fiK'«l 


19 00 ITC 




256K-X1 


35 00 nr 


iHZ%- 10 


fflliK'*-! 


90 (11) rrc 




25liK'x4 


K5 OO TTC 


11101)0 fl 


1M->;1 . 


99 Oil TTC 


■11101)0 10 


IM-d 


R5 no nr 



start 

equ 5 

phd 
tsa 
tod 

Ida [EvtPtr! 
(Event Record) etait donne p^r X et Y 



EventTable 



asl 
tax 
jsr 

pld 
rts 

anop 



(EventTable, X) 



I.C.A.R. 



COMPONENTS 



mmis SIMM 



HODUIFS SIPP 



' m i mmnrm iiriT mnnn" 



{ I'KOMOTION. MOl)Uli;S MACINTO.SII II FX ^ 

' ]i:s ■! MECA-onm i 

{ iwh'mmi»:iAmMNrD£ 68.90.00 TTC \ 

I'KI* PAH BlllVTITf: J 

KIT MHMOIRH POUli UACINTOSH II, !!«,!!)! KIT l,A3fH- HRITI-:ii . 
VERSION If* f 850.00 HC Kit mrrroirc IH- 

vtiiBioN z\h :ifi90.oo TTC Wd.m nc 

VF;R3I0M 4M' lyp(! ICI 7650.00 TTC Kit riirmoirr 11* 

fl^i^finTTr 



VISEZ JUSTE 



II I 1 1 1 1 I I 



mf/mum/fi 



'■y 




Tills DK [)()()() 
AiiTICli:S 
;^UR STOCK 

NOUS I'OUVON?^ roURNIR 
WS KlTHEMOIHKy I'OUH 
APPlFI.HAC.ILiM.IHM PS/2 
.COMPAQ.llKWim PACKARD 
.TOSilllJA.AST.HI'SflfJ./KNITH 
. RKNSKICNt:?. V0U3 ... 



EXPEDITIONS RAPIDES 



CONDlTraSCEUtliAlESUEVENIii. 

vl'rU' uiiiqiir'Hfinl iiii ri>m|il.jril 

minimijiii ['umniLindc IDCf TTC 
frdi^ Jf pari lUBqir'a fi Kg 
pdri'Hienl pdrcdrte liiinc^ur'' 45 UOTir 
pmemenl par I'hi'ttUL' \^ 00 TTf 

TMiienii>nl amirr - rtnttinur '^b 00 TTC 
au d^s^uu de & Kg porl du 
I^DLjrcunimaiiiJp^dir plusdc (10 TTr 
Tr^rLcadL! purl 

orCr? V3l<ibl( danslj liniilt; df niis 
blocks 

pni ;H]|iyjiiit funer fluivaiit la par^E 
ijilrps>if lif FDtnTnaiid'.' 

BP 310 
05006 GAP CEQEX^J 



HEURES D 'OUUE VITU RE DE 



H D 1 2 H c 1 1 5 H ^ 1 8 l-l tfu LUNDI ji u VENDREDI 
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dc 
dc 
dc 
dc 
dc 
dc 
da 
dc 
dc 
'Si en ' 

end 



i 'Rien • 
i 'MouseDown ' 
1 'Rien ' 
i 'Rien' 
i 'Rien ' 
i 'Rien ' 
i 'Update ' 
i 'Rien- 
i'Activate- 



mone 



HiTwo 



* Je bouton de la souris a etc enfonce * 

■ * _ r -J =--. 



EventPCT 



start 
egu 5 

using Data 
using Window 

phk 
plb 



HI Three 



cpx CtllHdl+2 
bne TheEnd 
_ Compact Mem 



jsr 
bra 

cpx 
hne 
Ida 
sta 



dessine 
TtieEnd 

Ctl2Hdl+2 

TheEnd 

tl 

divise 



PushWord II 
PushLong Ctl2Hdl 
SetCtlValae 



jsr 
bra 

CpK 

bne 
Ida 
ata 



dessine 
TheEnd 

CtlJHdl 4-2 
TheEnd 
11024 
divise 



^UshWord fl 
PushLong Ctl3Bdl 
SetCt lvalue 



Idy 
Ida 
sta 
Idy 
Ida 
sta 



IBventPtr] ,y 

vPoint 

»12 

(EventPtrl ,y 
hPaint 



PoshWord to 
PushLong tFaundCtl 
PushWord hPoint 
PushWord vpoint 
PushLong theWindow 
FindContral 



sta 
bne 
brl 



pl3 

FoundPart 

Track 

TheEnd 



TheEnd 



plb 
rts 
end 



dessine 



* Ne fait rien. ' 



Rien 



start 

rts 

end 



* Active / Desactive une fenetre. * 



Activate 
EventPtr 



start 
equ 



Track 



PushWord to 
PushWard fiPalnt 
PushWord vPoint 
PushLong to 
PushLong FoundCtl 
TrackControl 



using Data 
using Windov 

phb 
phk 
plb 



pi a 
sta 
beg 

Idx 
Ida 
cmp 
beq 
cmp 
beq 
cmp 
beq 
bra 



Part Code 
TheEnd 

FoundCtl+2 

FoundCtl 

CtllRdl 

HiOne 

Ctl2Hdl 

HiTwo 

CtlSHdl 

Hi Three 

TheEnd 



Ignore 



PushLong theUindow 

Dra wControls 
plb 
rts 
end 



* Mise a jour de la fenetre du NDA. * 

Update start 
EvtPtr equ 5 

using Data 
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using Window 

phb 

plb 

PushLong theWlndow 
BeginUpdate 



PushVord II 
PushLong 10 
pushLong f$04000000 
PushLong 10 
PushLong 10 
_NewControl 

PullLong Ctl3Hdl 



n 



6S 



PushLong tHlnHect 
EraseFect 



rts 
end 



PushLong theWindow 
DrauControls 



jsr 



dessine 



PushLong theHindow 
_EndUpdate 

plb 
rts 

end 



' Cree les cantroles de la fenetre 
princlpale du NDA. " 



FirstControls start 

using Data 
using Window 



PushLong 10 
PushLong theWindow 
PushLong iCtllRect 
PushLong iCCllTltle 
Push Word to 
PushHord HO 
PushLong to 
PushLong tSOOOOOOOO 
PushLong iO 
PushLong to 
NeuControl 

PullLong CtllHdl 

PushLong to 
PushLong theWindow 
PushLong lfCtl2Pect 
PushLong fCtl2Title 
Push Word to 
PushWord to 
PushLong 10 
PushLong tSOiOOOOOO 
PushLong to 
PushLong tO 
_NewCantrol 

PullLong Ctl2Hdl 

PushLong #0 

PushLong theWindou 
FusliLong #ct J JflccC 

PushLong tCtl3Title 
PushWord to 



* Dessine J'interleur de la fenetre. » 

desslnB start 

using Data 
using Window 

PushLong 10 
_GetPort 

PushLong theWindou 
_SetPort 

PushWord t$F 
_SetBackColor 

PushHord tO 
^SetForeColor 

PushLong to 
PushLong to 
PushLong tO 
_TotalMem 
PushWord to 
PushWoird dlvise 
_LongDivide 

PushLong fTotal 
PushWord te 
PushWord to 
_Long2Dec 
PullLong 



==«====•*■■■ 



PushWord tlO 



PushHord *10 



Ecri re 



Hove To 



PushLong tTatalStr 
_DrawCString 

PushLong tO 
PushLong to 
PushLong to 
_FreeMem 
PushHord to 
PushWord divise 
^LongDivi de 

PushLong tFree 
PushHord IB 
PushWord to 
_Longzuec 
PullLong 
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La lettre 
d' Excel 



Revue independante de la societe Microsoft 



Tous !es deux mois, vous trouverez dans La lettre d'Excel : 

• des informations : nouvelles versions, nouveaux drivers (imprimantes ou ecrans), 
logiciels et materiels compatibles, applications commercialisees, ... 

• des trues et astuces : tenant en une ligne ou en quelques paragraphes, des trues et 
astuces sur Excel, eventuellement specifiques h un syst^me d'exploitation ; 

• des modeles : chaque lettre offrira au moins un module pret ^ toumer, qu'il ait ete 
developpe par nous ou par des lecteurs de la Lettre ; 

• des tutoriaux : h chaque numero, un tutorial de base (un cours, accompagne de 
modMes sur disque) et un tutorial avanc^ seront offerts ; !e premier presentera en 
detail des notions de base sur un th^me precis, le second couvrira un th^me plus 
pointu et s'adressera plus aux developpeurs d'applications ; 

• des utilitaires : de petits modules prets & tourner, ou des macros, grace auxquels 
vous augmenterez votre confort et votre puissance d'utilisation d'Excel ; 

• ime hot-line : oil nous repondrons "preventivement" aux questions les plus souvent 
posees par les utilisateurs d'Excel, telles que nous les connaissons via notre activite 
de formation et de conseil et grace S nos echanges avec les experts de Microsoft ; 

• une disquette d'accompagnement, reprenant tous les mod&les presentes dans la 
revue, dans les series Trues et astuces. Modules prets a tourner, Tutoriaux et 
Utilitaires, et disponible sous Macintosh, OS/2 et Windows (3,5" et 5,25"). 

Bien entendu, nous proposerons aussi d'autres articles, par exemple des interviews 
d' utilisateurs de pointe, de developpeurs ou de celebrites. Nous offrirons en outre des 
rubriques bibliographiques, des bancs d'essai d'applications commerciales et des infor- 
mations sur les bogues repertoriees et - si possible - les fagons de les contourner. 

Premier numero : 15 octobre 1990. 

Abonnement : 6 num^ros et 6 disquettes pour 990 F TTC. 
Prix a I'unite : un numero et sa disquette, 250 F TTC. 



^ HerveThiriez ^ 



Redacteur en chef 
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Avec un abonnement coutant 
le prix d'une demi-journee de 
formation pour une personne, 
vous recevrez avec la Lettre, 
six fois par an, de la formation, 
des informations et des modu- 
les et macros prets h toumer. 



Formule d'abonnements multiples pour une 
m^me entreprise sur un site unique : 

• 5^9 abonnements : remise de 25 % ; 

• 10 & 24 abonnements : remise de 35 % ; 

• plus de 25 abonnements : remise de 50 %. 



Sommaire du N° 1 : 




Les informations 


3 


Tutorial - Les formats 




d'Excel 


4 


Trues et astuces 


9 


Fonctions calendaires 




et horaires 


U 


Mod&le : Analyse de 




chiffre d'affaires 


13 


Expertise ~ Creation 




de dialogue 


16 


Hot-line 


22 


^Bulletin 





Envoyez-nous 
vos contribu- 
tions : articles, 
modules, 
macros, ... 

Si vous avez 
developpe des 
modules sous 

Excel, nous 
pouvons aussi 
les distribuer 
en votre nom. 



La Lettre vous apportera, six fois 
par an, de nombreux modeles, des 
macros et des utilitaires divers, le 
tout au prix que vous payez pour 
un petit togiciel commercial. 



Redacteur en chef : Herve Thiriez, 
Frofesseur au Croupe HEC, expert 
aupr^s d'Eureka sur les tableurs et 
auteur de 10 livres sur les tableurs. 



Bulletin d'abonnemeht 

Abonnement (6 numeros et 6 disquettes) a La lettre d'Excel : 990,00 F TTC 

Numero 1 avec sa disquette d'accompagnement : 250.00 F TTC 

Cocher le type de disquette souhaitee (un seulement) : □ IBM 3,5" 

□ IBM 5,25" 

□ Macintosh 

Nam et prenom : Sociote : 

Adresse ; 



Poster votre rdglement et ce bulletin 5 Edilions WEV - 12, rue d'Anjou - 78000 Versailles 

Reglement Carte Bleue/VISA : N'^ de carte 



Expiration : Signature : 
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PushUord ilO 
PusftWord t20 
_MoveTo 

PushLong IFree_Str 
_DrawCString 

PushLong to 
PushLong tO 
PushLong ID 
_MaxBLock 
PushWord 00 
PushWard divise 
_LongDivide 

PushLong IMax 
PushHord fS 
PusfiWord fa 
_Long2Dec 
Pull Long 

PushHord »10 
PushWord 130 
_MaveTo 

PushLong SMax_Str 
_DrawCString 

_SetPort 

rts 

end 



* Execute lors de I'lnStialisation 
du Desk Mngr. ' 



Init 



start 

rtl 

end 



" Ouelcjues definitions. 
Define 



Bvttonltem 
StatText 
EditLine 
ItemDisable 



data 

equ 10 
equ 15 

equ 1 7 
equ $8000 
end 



" Donnees d'ordre general. 

* ^ ^= : : 1 



Data 



data 



vPoint 


da 


2 


hPaint 


da 


2 


DAActif 


ds 


2 


PartCode 


ds 


2 


FaundPart 


ds 


2 


founder ; 


ds 


4 


divise 


ds 


2 




end 










' Donnees 


relatives 





window 


data 






using Define 




la fenetre. ' 


ni n 1 lae 


str 


' Compact vl . 




dc 


1.2 ' WinEnd-filnParam 




dc 


l2 ' tJ 10000001 1 1 00 101 




dc 






dc 


1 9 U ! fippj. J. Ca L 1 fJfl = 




dc 


! J 1 f) /I n n ' 




dc 






aC 


J. ^ ij r <J 




aC 








i2 ' 0, * 




dc 


i2'Q,0' 




dc 












dc 


12 -O' 




dc 


14 '0 ■ 




dc 


Jfl '0- 




dc 


iS'O- 


VinRect 


dc 


i2'50,50,115,260' 




dc 


14 --1 • 




dc 


14 -O- 


HinEnd 


a nop 




coif en 


dc 


12 '0. SOFOQ, $020F, SFOFO, 




SOOFO' ; 


couleur des fenetres 


theHindaw 


ds 


4 


* Donnees des contrales. ' 


CtllRect 


dc 


i2'32, 52,47, 15T 


Ctl2Rect 


dc 


i2'47,15. 63,100' 


Ctl3ReCt 


dc 


12 '47, 130, 63,200' 


CtllTltle 


str 


'Compactage' 


Ctl2Title 


str 


•Octets ' 


Ctl3Tltle 


str 


•KO' 


CtllHdl 


ds 


4 


Ctl2Hdl 


ds 


4 


Ctl3Hdl 


ds 


4 


' Chaines a 


afficher. 


f 


7otaX_StT 


dc 


c'Memoire Totale :' 


Total 


ds 


a 




dc 


c' 




dc 


11 -O' 


Free Str 


dc 


c'Memoire Libre :' 


Free 


ds 


8 




dc 






dc 


11-0' 


Hax_Str 


dc 


c'Max. Block : ' 


Max 


ds 


8 




dc 


C 




dc 


11 '0' 




end 
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Un Accessoire de bureau qui vous convertira... Des francs en lires, des calories en 
joules, des barils de petrole en litres... 

A rouvcrture de ConvAcc, le dialogue suivani s'affiche : 



D suffil de meUre comme option de compilalion en d^bui de 
programme isd PasOeskAcc} pour gdndrer une ressoiirce 
de type DRVR. 



kcBlDFias : 



4,1855 



KJoiiies 



e 1990 R Jost S. Pom's 



Trois procedures indispensables 

Trois procedures sont indispensables : open, close et 
Control. Elles doivent Stre ddclarfes en premier, ce qui est 
obienuparuneddclaraiion forward. 



Enuez une valeur au clavier, frappez Return ou Enter, et le 

rcsuliai s'affiche dans la zone de lexie de droite. 

Filtragc des entrees : ne sont pris en compte que les chiffrcs 

de k 9. Ainsi la frappe de 123A+4 est inlerpr^tfie comme 

1234. 

C5-C ou Copier. C5-Jf ou Couper siockent le rdsultat 
dans le presse-papiers. 

(5-V ou Caller colle le contenu du presse-papiers dans la 
zone des donnfies. La conversion est automaliquemcnt 
effeciufie et s'affiche dans la zone des r^ultats. 



Programmation 
d'un accessoire de bureau 



La procedure open 

EUe est appelfe lors de la selection de I'accessoire dans le 
menu *■ ^' I'accessoire n'cst pas encore ouvert, elle realise 

les initialisations ndcessaires. Si I'accessoire est ddj^ 
ouven. sa fenetre est amende au premier plan. 

On cr^e et initialise ici les differentes variables ou objets 
ndcessaircs. TurboPascal, par !'inierm6diaire de 
PasDeskAcc, initialise les param&tres suivanls : 

• dctiFisgs : traitement des appels de controle ; 

• dctJDeiay : le dfilai en licks (1/60 seconde) est mis 
k 1/2 seconde ; 

• dctlHask : les ev6nements traitfis seront 

activateEvt, updateEvt, autoKsy, keyDown, 
mouseDovn. 



ConvAcc est ficrii en Turbo Pascal®. Voyons quelques 
dStails de programmation. 

Un accessoire de bureau est un type particulier de 'Driver' 
(piloie de peripherique). Le Macintosh dispose en ROM 
(mfimoire morte) des drivers de disque, de son el de sortie 
sdrie. II y a aussi des drivers implanl6s en RAM (mSmoire 
vive). done lus ^ partir d'une disquelte, entre aulres le driver 
d'impression et tous les accessoires de bureau. I-a gestion 
des drivers est effectufe par le gestionnaire de pdriphiSriques 
{Device Manager). Un accessoire de bureau se priisente 
comme un fichier Ressource de type 'DRVR'. 

Compilation avec Turbo Pascal 

Contrairement S Lightspeed Pascal ou k MPW Pascal, un 
accessoire de bureau en Turbo Pascal est dSfini comme un 
programme ordinaire commen^ani par rinstruclion : 

program xxxxk; 



Pour pouvoir quitter I'accessoire en cliquant dans la case de 
fermeture de la fenetre, on modifie dctiFlags de fagon k 
positionner le bit correspondant k dneedGooobye en faisant 
un Or dedCtJFIags avec $1000. 

On definit ensuite une zone mSmoire dans laquclle seront k 
I'abri les variables globales (valables pour tout le 
programme) et le DiaiogRecord. Aprfes calcul de 
I'identificaieur de ressources (voir plus loin), la bolte de 
dialogue est crefie k partir des ressources DLOG et DITL. 
Ne pas oublier de d^finir le type de la fenStre comme celui 
d'un accessoire: 

IrlindowPeek iOurUindow) " .WindouKind ; = 
DCtlRefnum. 

La procedure control 

Cette procedure correspond k la boucle d'evenemcnis 
classique d'une application. Elle rdagit k la frappe de 
touches, ou au die souris dans une des zones de la boite de 
dialogue et effectuc les calculs n^cessaires. 



Pom's n° 50 



41 




La procedure close 

La routine close se charge du manage nficessaire lors de la 
fermelure de raccessoire, Apr&s un clic dans la boite de 
fermemre, I'EventManager donne k code la valeur 
Goodbye (=-1) et la procedure control passe la main k la 
proc&Jure Close. Cette demifere Ubfere I'espace miSinoire 

occapd par ie dialogue et les dohnles, et aniiiile le pointeitf 
de fengtre. 

Ces trois procedures commiiniquent par rinlermgdiaire 
d'une variable commune (appeions la 'Device') qui est un 
cnrcgistrement de type dctiEntry (Device Control 
EDtry) dont la structure est donnfe ci-dessous : 

record 

dctiDriver : ptr; poinieur sur le driver 
dCtlFlags : Integer; drapcaux d'6lat Ct de 

conirole 

□ Chaque bit de I'Dctet de poids fort de octirFiags 
correspond k un drapeau : 

; dReadEnable ; (nOn Uti1is6 ici] 

1 ; dtfrlt£nable ,■ (non udiis6 ici) 

2 I dcxiiEnabie ; {si ie driver doit u^ter les 

appels Control] 

3 : dStatE/iabie / {non utilisfi ici) 

« : dNeedGoodeye / {pourquiiterraccessoirel 

5 : dWeedTime / {si I'accessoire n&essited'avoir 
acc6s k I'heure pour effectuer des acdons p^riodiques) 

6 ; dweediocfc ; (si le driver doit ctfe vefTOuilie en 
m&noire} 

□ L' octet de poids faible contienl les drapeaux suivants : 

bit 5 = 1 si le driver est ouvert ; 
bit 6 = 1 si le driver est en RAM ; 
bit 7 = 1 si le driver est en service. 



dCtlQHdr 




QHdr; record relatif^ la queue 






d'dv^cments 


dCtlPosltion 




Langint; uiilis6 par les drivers 






d'enirfe-sonie 


dCti Storage 




Handler manche sur une zone de 






slockage 


dCtlRefNum 




inceger,- n" de r6f6rence du Driver 


dCtlCurTicks 




Longint; usage interne 


dCtl Window 




Ptr,- poinieur sur la fenetre de 






I'accessoire 


dCtlDelay 




Integer; nombre de Ucks cntre 






deux actions 


dCtlEMask 




Inceger; masque des ev^nements 






g^rds par I'accessoire 


dCtlHenu 




Integer; ID du menu associ^ ^ 






raccessoire 



• end; 



Variables globales ? 

n n'est pas possible de d^larer des variables globales dans 
un accessoire. On ddclarera done une variable de type 
record (appelSc srecord dans ce programme) qui 
contiendra toutes les variables communes aux diverses 
proc&lures, un poinieur (stpcr) et un Handle (sHandJe) sur 
ce record. 

Les ressources 

Les difRrenls paramfitres de la boTte de dialogue soni lus 3 
partir du fichier Ressource associd k I'accessoire, Un 
accessoire de bureau doit avoir un numfito d'ideniificadon de 
ressources compris entre 12 et 31. PasdeskAcc fixe 
sysiematiquement cet ID k 12. Les diffSrenies ressources 
devront avoir un ID cwnpris entre -16000 k -15969. Une 
complication survient lorsque Ton installe I'accessoire dans 
le System avec Font/DA Mover car ce dcmicr modifie 

les identificateurs de I'accessoire (12) et des ressources 
(-16000 a -15969) pour dviier les doublons. Lors de son 
ex&ution, I'accessoire devra done recalculcr les nouvelles 
valeurs. Ceci se fait par la formule suivante, par exemple 
pour un ID primitif de -16000 : 

NouvID = $C000 - 32'(dCi:lRefnum + H. 

Compilation de ConvAcc 

Uliliser RMaker pour compiler le ressource Conv Acc.R 

Compiler Convac.pas avec Turbo Pascal®. Le fichier 
resultant de la compilation aura pour nom : Con Vacc. 



Bibliographie 



• Inside Macintosh : chapitre 14, Vol I. et chapitre 6, 
Vol. II. 

• Manuel de Turbo Pascal, chapiti'e 10. 
Turbo Pascal est une marque dSpos^e de Borland 
International. 



Modification sous ResEdit 



AvecResEdit vous pourrez cr&rS partir de ConvAcc les 

accessoires de conversion qui vous sont nScessaircs. OpSrer 
comme suit : 



Faire une copie de ConvAcc : 




Copie de ConvAcc 
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Lancer ResEdil etouvrirlefichier Copie de 
ConvAcc : 



IB OaskTop Infests Dor WDEF 
Si Mbum.o\a 
Q ConvAcc 
B convaecvlde rsrc 



2 T'.iLllc ijf C 



On accfede ainsi aux 4 ressources de ConvAcc : 

D R V R : driver qui contient le code de I'accessoire ; 
: template du dialogue ; 
: liste des items du dialogue ; 
; ic6ne de copyright. 



DLOG 

DITL 

ICON 



D3 



El 
DD 

pa 

IB 
Q 

Ell 



IDB Cople de Conuflic 
tUS Cople as Conuncc 



1 



DITL 
DLOG 

ICON 







IntSressons-nous k la ressource DRVR, dont la selection 
affiche I'ecran suivani : 




Selectionner la ressource d'lD = 12 et dans le menu File 
choisissez Getlnfo. Dans la zone Editable Name du 
dialogue qui s'affiche, remplaccr ConvAcc par le nouvcau 
nom de raccessoire : 



iPg Info forOHUH IZ from Cople de ConuFcc 



DRUflt fretn Cople de Conuncc 



ODrluer ® DbiK acc. 
NBine: 



Size: 11372 



ID: 



l.dllnn US -> littei 



12 



Ouiner 10: 
Sub ID: 



Owner type 





DRIIR 
tlFOEF 
MOEF 









ntthtiutet: 

n Syitem Heap QLocked 
P Purgeable □ Protected 



O Preload 



Sdlectionner la ressource DirOG — leaoo. 

* FilB Edit DIDG 

OlSQUE SE I 



□ 

□ 

D 

D 

D*! 

D 

D 

D 



DLiai Dialog ID -- 1 6000 from Cople de C 



DLOGs From Copie de Corn] 





Ouvrir le menu DLOG et choisir la senle option existance 
Display as Text. Dans la bolte de dialogue qui apparait, 
modifier le litre de la fenetre : 



!□! DlBlog in - -I soontrom Cople de C 



lUlndoui title: 



{ConuerilDn de Gollont US en litre 


top 


B4 


bottom 


174 


len 


52 


rlghl 


460 


PrncID 


16 


reFCon 





reilO 


-IGOOO 







L 



□ Ultlble 



^ gonuisyFleg 



Ouvrir maintenanl la ressource DITL = -16000. 




D3 



B 




Q 


□ 1 


IB 


OL 


a 


OF 




IC 


« 








□ 




B 




A 





Cople de Conuflcc 



Dl 



Di Dialog Hem llil ID > 


-16DD0 from Cople de Conuflcc EM 




|l 


1 ^calorlei 


- ||4,1B55 1 Mnulei 


J 


B 










le 









Double-cliquer dans la zone de texte "kcalories =" et dans le 
dialogue qui s'affiche. modifier le content! de la zone Text : 





- Edit Item *3 




O Button 
Check box 
O Bedlo control 
® Static teHt 
OEdllable isHt 

O CNTL ratourra 
O ICON reiDurce 


® Enabled 
O DItBbled 


lop 


16 




left 


96 




bottnm 


36 




OPICT reiource 
Uterltem 


right 


195 








tOHt 


k i .i1nilp\ 













OpiSrer de meme pour les autres champs afin d'obtenir : 



Cople de ConuBcc 



MJB DIDIoq Item Itit ID - 


-16000 from Cople de ConuRcc 






jGallan US 


• ||3,7a541 1 llltrBt 




B 












le 
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Feniier toules les fenelres et ne pas oublier de sauver les 
modiflcaiions en quittant ResEdil : 



DLOG 
DRVR 
ICON 



Ssue 'Cople de ConuRcc' before 
doling? 



Vei 



( NO 



[ Cancel 



Au niveau du Finder, rebaptiscr I'accessoirc : 




Gallons US -> litres 



Enfin, installer le nouvel accessoire dans le menu Pomme. 



(oniieition lie tiallom US en lllrei 



Gallons US = ZjeSA 



Hires 



« 1990 R.Jost & Pom's 



Pour vous donner maliSrc ii conversion, en ces icmps de 
crise sur for noir, je vous propose en prime la table 
suivante : 



norn 




rt1 ttlon 




Qubic kich 


in^^ ou In 


1 inJ - 1 /\i2a n3 


ie,3B;o£4 > 10-^ 


eub1( fosl 


ni, M n 




28,3I6B v 10-^ 


DUbl D U ATd 






0, 7^4 555 


fluid drvn 


n 4r 


1 fl 4r- WBfl 01 


3;,6»t691 n 10-6 m' 




n •! 


1 tl « - 1/4 gill 


29,5735 K 10-* 


(in 


ini 


1 tfll • II4 »l 


0, 118294 ic IO-J|ll' 


It quit iiM 


114 pi 


1 1<i pt - 1/2 4t 


0,473176 ic 10-3 _3 


Kquil quvlf 


IH «i 


1 ii« - 1/4 «ii 


0,946353 * lO-S 




t»t 


1 f Jl • 231 t>l 


3.785*1 )■ 10-5 ib3 


titrfr\ 


kUTtI 


1 hirr>1 ■ 9702 tnl 


0,158987 


ik^ pint 


*-» n 


1 *i *l •W2dru «l 


0,550«IQ xlO-} mi 


drv qj*rt 




1 4ri - 1 /B drv pk 


1 ,1012211 ID'l mS 




».l 


1 dri !■! - 1 /2 4r« 


«,40483li iO-t mi 


ptdr 


«r« ^ 


! 4r« pk - 1 /4 »■ 


a.a0977 X lfl-3 ■i3 




hkl 


1 khi • TOK IB^ 


0.1 15827 ai^ 



Convacc.pas 

PROGRAM ConvAcc; 

!' ©1990 floJand JOST S Pom's •) 

I annule le chargewent par defaut des Units ) 
i$R-l 

I pas de contrdle des entrees ) 
ISD PasDeskAccI 



I on compile comme accessoire de bureau i 

(SR ConvAcc.Rsrcl 

{ fichier ressource carrespondant ) 

USES 

MemTypes, I les Units necessaires ) 
QuickDra w, 

OSIntf. 

Toollntf, 

Packlntf, 

SANE.- 

CONST 

accEvent = 64,' ! pour memoirs, I 

aocRun =65; ! ces declarations ne sont 

pas necessalres car ) 
accCursor - 66; ! ces constantes sont deji 

definies I 

accMenu = 67/ { dans la ToolBox , } 

aocUndo - 68; 

accCut = 70; 

accCopy = 71; 

accPaste = 72; 

accClear - 73; 

dCtlEnable = S0400; ( 1 'accessoire doit 
repondre aux appels Control I 

dtieedGoodBye = $1000; f appel de 
1 ' accessoire avant reinitialisation du heap ) 

dNendLock = S4000; I 1 'accessoire est 
verrouille en memoirs ) 

TYPE 

SRecord = RECORD I record des variables 
globales de I'accessoire } 

facteur : real; I facteur de 

conversion ) 
END; 

StPtr = 'SBecord; { painteur sur le record I 
SHandle = 'StPtr; f handle sur le record J 

I ces trois procedures sont absolument 
necessaires et 

doivenc §tre declarees avant zoute autre :1 
P'ROCEDURE Open (VAR Device : DCtlEntry) ; 
forward; 

PROCEDURE Control (VAR Device : DCtlEntry; 
Param : Longint; 
Cade : Integer) ; forward; 

PROCEDURE Close (VAR Device : DCtlEntry) ; 

forward; 

TYPE 

EventPtr ^ "EventRecord; ( pour traiter les 
evenements ) 

FUNCTION ReelEnChaine (nombre : real; 
decimales : integer) : Str255; 

I) 

(conversion d'un nombre rdel en chalne de 
caracteres, j 
(utilise la procedure Num2Str de SANE, ) 
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(trans forme les paints en vlrgules } 

!} 

VAR 

format : DscTorm; 
chains : szr255; 
i : integer,- 



BEGIN 

format. Style FlxedDecimal; 
formac. digits := decimales; 

Hum2Str (format, nombre, chains) ; ( procedure 
de SANE ) 

FOR i ;= 1 TO length (chaine) DO 
IF chained} = ',' THEN 
chainelij :- ', ' ; 
ReelEnChaine chains; 

ENDf {function ReelEnChaine) 

FUNCTION Filtre_Entrees (chaine .- Str255) : 
Str255; 

{) 

(analyse uoe chaine de caracteres et ne garde 
que les chiffres, } 
(convertlt les virgules en points) 

1} 

VAR 

index : integer; 
ctemp ! str255; 

BEGIN 

FOR index 1 TO length (chaine) DO 

IF chainellndexl - ' THEN 
chaine [index] ;= ' . '/ 

ctemp " 

FOR index ;= 1 TO length (chaine) DO 

IF chainelindex] IN / ' ■ . . '9 ', ' . ' ; THEN 
ctemp ;= ctemp + chaine I index) ; 
Flltre_Entrees ctemp; 
END; /function f'iltre_EntreesJ 

f ».».**•»■•»••* •••••»•***•'•**•** '••»•■»*'*•**••/ 

PROCEDURE Acces_PressB_Papier (theffindow : 

wlndovPtr; 
itemhlt : integer; 
VAR handled ! boolean! ; 

{) 

(gdire ie couper/ coller de I'accessoire vers le 
presse-papler } 

n 

VAR 

errno : integer; 
BEGIN 

( Ne pas chercher de signification & la valeur 

des constantes 4 et 9 
qui sont taut a fait arbltraires , Elles 

correspondent a une version 
primitive de I'accessoire aO il y avalt 9 items 

dans le dialogue . ) 



CASE itemhlt OF 
4 ! I coller } 

IF TEFramScrap > THEN ( s'il y a eu 
transfert du Presse-Papier vers TexEdit .. / 
BEGIN 

DlgPaste (thewindow) s 
I cople le texte selectlonn^ dans le presse- 
papler de TextEdit) 

SeliText (theWindow, A. 
0, 999) ; ( s§iectlanne le texte ) 

Handled ;= true,- f 11 

faut convertlr ) 

END; (4) 

9 : 

BEGIN ( copier } 

SeliText ttheWindow, 6, 0. 

999) ; 

DlgCopy (tbevindow) ; ( cople 
le texte selectlonne dans le presse-papier de 
TextEdit) 

errno := ZeroScrap; I mlse a 
zero du presse-papler ) 

errno TEToScrap; ( 
transfert de TextEdit vers le vrai Presse- 
Papier } 

SeliText (theWindow, 4, 0, 

999) : 

END; 19) 
END; ( case itemhlt ) 



END; I procedure Acces^Presse^Papier ) 



PROCEDURE Control; 



I traits les appels de controle) 
l> 

VAB 

myVars : StPtr; i Pointeur sur 

la zone des variables globales ) 

theWindou ; UlndowPtr; 
la fenStre de I'accessoire ) 

eventAt ; EventPtr; 
1 'ev^nement ) 

handled : Boolean; 
traitement de I'evenement I 

i t emHi t : int eger; 
1 ' item a^lectionne ) 

chaine ; str255; 

theType : integer; 
I'ltem select ionn^ ) 

itemHdll, ItemHdl! i handle; I handles sur 
les items de texte editable) 

ItemBox : Rect; I rectangle 

delimitant un item ) 

BEGIN 

theWindow := UlndowPtr (Device .DCtlfiindov) ; 
myVars StPtr (Device. DCtiStorage) ; 



( pointeur sur 
I Addresse de 
( drapeau de 
( numero de 

I type de 
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f SetPort (theWindow) ; ) 
handled := false; { drapeau signalant s'il 
faut convertir une valeur ou non j 

CASE Code OF ( on traite en fonction de 
1 'evenement ) 

accEvent : ( un evenement a trsiter j 
BEGIN 

eventAc EventPtr IParam) ; I 
r^cupdre le record de J 'Evenement ) 

WITH eventAt ' DO 
BEGIN 
IF (even tAf^ .what = 
keyDown) THEN ( frapps d'une touche } 

IF 

(BitAnd(eventAf, modifiers, cmdKey) <> 0) THEN 

BEGIN 

f touche coimande + autre touche ) 

handled 

true/ 

CASE Chr (Bit And (eventAt '.message, 
charCodeMask) ) OF 
'X', "x ' :( couper J 

ficces_Presse_Papier ItheWl ndow, 9, Handled) ,- 
'C, 'c' : I copier ) 

Acces_Presse_Papier (theMindow, 9, Handled) ; 
•V, 'W :( caller j 

Acces_Presse_Fapler ItheWindow, 4, Handled! ; 
END.- ( case Chr... ) 

END I 

if cmdkey ) 

{ ou si on frappe les touches ENTER ou 
RETURN ) 

ELSE IF 

( (BitAnd (eventAt' .message, charCodeMask) = 
$031 

OR (ait And (eventAf. message, 
charCadeMaskl = SOD) ) 

THEN { on valide la chains j 

Handled 

;= true; 

IF NOT handled THEN 
BEGIN ( s-il 

y a clic dans le dialogue ..) 

IF 

DialogSelect (eventAt', thet/indow, itemHit) 
THEN (,. on r^cupere Je numera de 1 'item 
cllquS ) 

IF itemhit = 6 THEN f si c'est la case 
d'affichage du resultat ...} 
SeliText (theHindow, 4. 0, 9991 I ... on 
selectionne la case de dannees } 

END; i of If 

IsDlalogEvent J 

END; 

END; I of DOEvent Case ) 
( on CraiCe les items d'edition :} 



accCut : Acces_Presse_Papier ItheWindow, 
9, Handled); 

accCopy : Acces_Presse_Papier (theWindaw, 
9, Handled); 

accPaste : Acces_Presse_Pspier (theWindow, 
<, Handled); 

accClear : DlgDelete ttheWindow) ; 

goodBye : Close (Devicel 
END; 

IF Handled - true THEN ( il faut convertir 
une valeur } 
BEGIN 

GetDItem (thewindou, 4, tbeType, 
iteniHdll, itemBox) r ( recupere les handles ) 

GetDJtem(thewindow, 6, theType, 
itemHdl2, itemBox) ; ( sur les zones de texts 
Editable j 

GetiTextdtemHdll, chaine); i lecture de 
la donnee a convert ir ) 

chaine :- Filtre_Entree3 (chaine) ; 
chains .-= ReelEnChdinelSti:2Num(chalne) ' 
myvars' .facteur. 41 ; 

SetiText (itemHdl2, chaine) ; t stocks le 
resultat dans la zone de texts editable I 

DrawDialog (theMindow) ; ( mise a jour de 
la boite de Dialogue ) 

SellText (theWindow, 4, 0. 9999); ( 
selection de la zone des donnees } 
END; i il } 

END; I of Procedure Control j 

I ^. ^^_^ ) 

PROCEDURE Open; 



(> 

( realise les initialisat ions necessaires et 
ouvre I'accessoiie ) 
(I 

VAR 

aurStor : StPtr; ( pointeur sur les 

variables globales } 

ourWindow : DialogPtr ; t pointeur sur la 
fen^tre du Dialogue } 

oldWindow : WindowPtr; I sauvegarde de 
la fenStre ) 

i : Integer; f Indice de boucle 

) 

NouvID : integer; I identificateur de 

ressource ) 

chaine : str255; ( chaine de 

caractere intermediaire } 

itemHit : integer; ( num^ro d'item de 

dialogue ) 

CtieType : integer; ( type de 1 ' item 

selectionne j 
TextHdl } , 

TextHdl! ; handle; ( manches sur les 

zones de texte editable j 

iteuiHdl : handle; ( handle sur 

I'item } 

itemBox : Rect; f rectangle 

delimitant un item J 

un_reel : real; ( variable reelle 

temporal re ) 
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BEGIN 

t verifie si I'accsssoire est deja ouvert / 
IF Device. DctSWindow - NIL THEN 
BEGIN 

WITH Device DO 
BEGIN 

dCtlFlags ;= dCtlFlaqs 
OR dCtlEnable OH dNeedCoodBye; I met les 
dcapeuax ) 

dCtlDelay := 30; 

I freq = 1/2 sec) 

dCtlEMask := mouseDown 
OR keyDown OF updateEvt OR activateEvt; { 
definit 1 ' event mask} 

NOUVID := $C000 - 32 ' 

{dCtmefNuiB + 1) ; 

! calcule I'identificateur de la 
ressaurce } 

ourStor 

StPtr(NewPtrtSizeof(SRecord} + 
Sxzeof (DialogRecord) ) ) ; 

I definitian d'un pointeuz sur ia 
zone dss variables globales I 

IF lourStor = NIL) THEN I si on n 'a pas 
pu definir le pointeur ... / 

BEGIN 

SysBesp(4l ; 
Exit; i ... on 

qujtCe } 

END; ( if } 
DCtlStoTage 

Handle tourStor) ; 

NITH ourStor' DO 
BEGIN 

SeCDAFont (1) ; { change la police ) 

ourUlndow ;= GetNewDialog INouvID, 
Ptr(ard(ourStor/ * Sizeof (SRecordj ) , pointer f - 
I) 1 1 

SetDAFont 101 ; I retour a la police standard I 

IF (ourWindow = NIL) THEN I si le dialogue ne 
s'est pas ovvert ... ) 

BEGIN 

SysBeep (4) ; 

DisposPtr (Ptr (ourStor) ) ; 
DCtlStorage NIL; 
Exit; { on guitte I 

END; ( 

it ) 

DCtlWindaw := 

PtrlourUindow) ; 

WindowPee)! (ourdindow) " .windowKind i = 
DCtlRefNum; I c'est una fenetre d'accessoiire J 

GetPoct (oldWlndou) ; I sauvegarde de la fen§tre 
active ) 

SetFart lourWindau) ; ( la fenetre active est 

maintenant celle du Dialogue } 

GetDitem [DurWindow, 1, theType, TextHdll, 




i t emBoxl ; 

Setitext (TextHdll, •& 1990 R.Jost s Pom-'s'); 
I affiche le copyright > 

GetDItemlourWindow, 4, theType. TextHdll, 
itemBox) ; f boite d'affichage du r^sultat ) 
GetDItem laurMindow. 6, theType, TextHdl2, 
itemBox}; { boite d'affichage du resultat J 
GetiText (TextHdl2, chaine) ; 

un_^reel ; = 
Str2mm (Filtre_Entrees (chainel ) ; 

GetiText (TextHdll, chaine) ; 

facteur ;= 

un_reeX/Str2Num(Filtre_Entrees (chaine) ) ; I 
facteur de conversion ) 
SellText (aurWindow, 4. 0, 9999); 

SetPort (oldWindow) ; f r^cup^re i 'ancien 
GrafPort } 

END; ( of With 

ourStor~ do ) 

END; I with Device I 
END; I if Device ) 
END; ( of procedure Open j 

PROCEDURE Close; ^ 
(} 

I effectuer les operations de fermeture et 
llb^re la place raemoire ) 
{} 

VAR 

AccDialog : DialogPtr; 

listBand ; Handle; { Handle sur la 

zone des variables globales ) 

oldResFile : Integer; 
BEGIN 
WITH Device DO 

BEGIN 

AccDialog WlndowPtr (DCtlWindow) ; 
listSand 

DialogPeek (AccOialag)', items; ( Handle sur la 
lists des items ) 

CloseDialog{AccDialogl ; ( oublie le 
dialogue ) 

DisposHandle llistHand) ; i oublie la 
liste des items j 

DCtlWindow NIL; f ferme la fenetre ) 

DisposPtr (Ptr (DCtlStorage) ) ; ( oublie la 
zone de donnees globales ) 

DCtlStorage NIL; 

HPurge (Handle (DCtlDriver) ) ; f ^limine le 
driver J 

END; ( with device I 
END; ( of routine Close I 

BEGIN ( main j 

C pas de programme principal ') 
END. 



Pom's n° 50 



Convacc.R 

• Resource listing from file: "canvacc.rsrc" . 

>t 

convacc. rsrc 
Type DLOO 

,-16000 12) 
Conversion de kcslories en kJoules 
46 52 136 460 
Invisible GoAway 
1 6 


-16000 

Type DITL 

, -16000 

6 

1 

SCatTexC Disabled 
48 72 82 363 

,, dans cette zone s'afSichera le copyright 
2 

48 16 ao 4S 
-16000 

• 3 

StatText Enabled 

16 96 36 195 
kcalories - r; 

• 4 

EditText Enabled 

17 18 34 85 
1 

' 5 

StatText Enabled 
16 312 32 100 
kJoules ; ; 

' 6 

EdiCText Enabled 
16 200 32 300 
4,1855 

Type ICON = GNRL 
, -16000 

.H 

•icone 

[•pffff^p 80000001 82000001 82000001 
87000001 85000001 85000001 8A80QQ01 
8FS00001 8A800001 8A800001 8F300001 
8A800001 8AB00001 8FS00001 BASOOOOl 
8FFF8001 8FFFB001 88008001 8A223001 
8A728Q01 BAFA8001 8A728001 88208001 
88008001 98208001 8B768001 8B768001 
8B7680Q1 8FFF80Q1 80000001 FFFFFFFF 



Des bugs, AppleWorks 3.0 ? 

Sur la disquette n" 51 qui accompagnera voire prochain num^ro 
de Pom's, vous trouverez des petites macros, des programmes 
et quelques patches qui viendront corriger les "quelques" bugs 
que vous n'avez pas manqu6 de remarquer sur voire nouvelle 
versbn d'AppleWorks, 
RerxJez-vous done au mois de novembre... 



Winfile 

Les bases de donnees bien faites ne sont pas 

si nombreuses que 9a ; en voila une qui m'a 

convaincu et, pourquoi pas, m'a donne envie 

de transferer nos fichiers. C'est un 

doux melange de Works et ("^irf 

d'HyperCard, personnalisable et au 

standard Macintosh. VinFiiei .t 

Lorsque j'ai ouvert la boTte. j'ai trouv6 une superbe 
documentation reliSe et en fran^ais. qualre disqueties 
rangfies dans deux portefeuillcs et un abr6gd des raccourcis 
clavier. Winfile est un logiciel bien protdgg, il faul done 
I'installer sur son disque dur (on peul le ddsinslaller 
^galement), avanl de commencer quoi que ce soit. Si Ton 
iravaille depuis la disquette, c'est iris lent et si Ton ne 
rinsialle pas, I'application demandera la disquette 
originate k chaque ouverture de rinsiallallon. 

TV nnmhmix fichiers exemnle snnl foumis sur les diverses 
disqueties. ce qui faciliie I'apprentissage car les possibilitfis 
de Winfile soni nombreuses et, sans suivrc les instructions 
de la doc, les premieres utilisations deviennenl vite 
laborieuses. 

En bref. Winfile propose trois formats et deux modes : 

✓ Les modes Exploitation et Definition ; 

✓ Les formals Etiquettes. Liste et Fiches, 

Lorsqu'on ouvre un nouveau fichier, Winfile propose de 
structurcr ce fichier et, k chaque categories que Ton ajoute 
apparait une sone de lirotr et ses informations : champs cl6, 
texte, date, numdrique... Lorsque vous avez ddfini lous vos 
champs, vous pourrez mcttre en page vos difffirenls 
formats. lis seront & I'impression icls qu'Ji I'^cran. Les 
fiches apparaissent rfiellement comme telles, avec les deux 
encoches pour mettre dans un classeiu'. 

Le tout est paramdtrable presquc i I'infini mais attention, 
Winfile est trfes capricieux el il faudra vous familiariser 
avec ses "bizarerics" parfois surprenantes ! 
Tout ce qu'on peui demander k un bon gestionnairc de 
fichiers est prfiseni dans Winfile. De nombreux 
inconvfinients sonI dficelables cependant. que je qualifierai 
"d'erreurs de jeunesse", j'ose espfirer qu'une prochaine 
version viendra vite les corriger. car c'est un logiciel qui 
promet, 

Parmis ces petites erreurs, en voici deux : ne lapcz surtoul 
pas " Return" pour valider un champs que vous vcncz 

d'efliffif dang I'une de vo§ fich6§. §ous peine de voir 

disparaitre le lexie en entier. En second lieu, rcfCrez-vous k 
la documentation pour connaitre le lexte integral des 
fenelres d'informalion ou d'aleries car, a I'ecran, il en 
manque bien souvent une bonne parlie ! 
En bref, c'est un bon inveslissement, disponible chez les 
revendeurs el pr^sennS k Apple Expo. Configuration 
minimale : Mac +. SE, SE30, n, IICX, IICL 
Prixpulic;3 440F. 
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^LmiCe Scfizvarz 



Voici une presentation des outils et de leur mode de fonctionnement. Une approche simplifiee de 
I'utilisation des outils en langage C permettra a tous les lecteurs desireux de programmer dans 
ce langage d'utiliser les descriptions des outils tels qu'elles sont dans les trois volumes "Apple 
Ilgs Toolbox Reference Manual". 

Les outils sp6ciaUs4s 

— A. C. E. (Audio Compression and Expansion Tool Set) 

gcsiion des fichiers son ; 
✓ Integer Math Tool Set, operations mathematiques 
simples ; 

Midi Tool Set, gestion des p^riphdriques MIDI ; 
Note Sequencer, gesiion musiquc ; 
Note Synthesizer, gestion musique ; 
%^ SANE Tool Set (Standard Apple Numerics 
Environnement), operations mathfimatiques 
complexes ; 
f* Sound Tool Set, gesiion des sons ; 
-• Resource Manager, gesiion des ressources ; 

Text Edit Tool Set, gestion des textes en graphique. 



Description generate 
des outils 



11 y a deux types d'outils : les outils bom et les outils pam. 
Ces outils se r^partissent en cinq grandes families dtScriies 
ci-apr6s : 

Les outils de base 

\/ Event Manager, gestion des evfencmenls ; 

✓ Memory Manager, gestion de la mdmoire ; 

✓ Miscellaneous Tool Set, outils divers ; 
Quick Draw II, gesiion de I'toan graphique ; 

✓ Tool Locator, gestion des outils ; 

Les outils interface "desktop" 

✓ 

✓ 

✓ 

✓ 
✓ 

✓ 

✓ 

✓ 

✓ 



Control Manager, fonclions de controle ; 

I>esk Manager, gestion des accessoires ; 

Dialog Manager, dialogue avec Tutilisateur ; 

Font Manager, gestion des polices ; 
Line Edit Tool Set, gestion des chaines ; 

List Manager, gestion des listcs de chaines ; 

Menu Manager, gestion des menus diSroulanis ; 

Scrap Manager, gestion des "copier/coUcr" ; 

Window Manager, gesiion des fenetres. 

Les outils interface "systSme 
d'exploitation" 

✓ Scheduler, gestion des inches ; 

— System Loader, gestion des segments de code. 

Les outils interface d'entr6es/sorties 

✓ Apple Desktop Bus Tool Set, gestion des p^riphcriques 
ADB ; 

Print Manager, gestion de Timpression ; 
■-• Standard File Operations Tool Set, gestion des fichiers 
en Lecture/Ecriture ; 

✓ Text Tool Set, gestion des fonctions du mode texte. 



L'outil r6serv6 pour une utilisation 
interne 

✓ Outil numfiro 13 i$OD), gesiion du disque virtue! 
(present dans la ROM oi, present dans les jjom 3) ; 

✓ OuiilRAM. 



Oraanisatlon des aooels de 
la boite a outils 



II y a dans chaque outil deux types de fonctions : 

H Les Aouse ke&pitig functions qui portent les 
numdros $00 ^ $0B. Les numgros $07 et $08 ne sont 
pas aciuellement attribu^s. 

■ Qi Bootinit utilise par le Tool Locator, 

•S02 startL^! d^marre l'outil ; 

•$03 shutDown ferme l'outil ; 

, S04 Version indique le numcro de version ; 

• 505 Reset effcciuc un reset de I'ouiil ; utilisfi par le 
systSme lors d'un reset, 

• $06 status indique I'etai de l'outil : Vrm (True) = outil 

actif, Faux {False) = outil inactif, 

• De $09 k $FF, routines sp^cifiques ^ chaque ouiil. . 
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Comment effectuer un appel ^ partir 
du fangage C ? 

II faut decoder les appcls tels qu'ils sont diScrits dans les 
trois volumes de rdffirence de la boite k ouiils. II y a deux 
€li3menis qui revieiinent dans la majoribi des cas : 

• Les param&tres & empiler ; 

• Les rfisultais i dSpiler. 

Comme vous I'avez conslald, la synlaxe d'appel de chaque 
foncUon est donnte pour chaque appel. 

La boite h outils de I'Apple lies a con?ue de manifere k 
rfipondre k tous les cas de figure. En effet. certains appcls 
ont un ou plusieurs param&tres, d'autrcs n'en ont pas. Les 
paramfetres oni one longueur variable entre 4 ei 2 octets, 
doni parfois 1 seul (octet) est utilise... De plus, il y a parfois 
des informaLions a r&updrer sur la pile ; ces informations 
seront sur 8, 4 ou 2 octets avec possibility de n'avoir qu'un 
ou 3 octets utiles. 

La figure ci-contte resscmble au sh^ma donnS dans chaque 
description d'outil. 

Previous contents reprdsente le contcnu de la pile avant 
I'appel. 

Space reprSsente le premier paramfelre. II faut toujours 
empiler de I'espace pour pouvoir recuperer le r^sultat. 
Lorsque la fonctton appelde ne renvoie pas de r^ultai, 
space reprfisente le premier para-m&lre. 



Previous conlcnu 



Space 



Pwtunclci2 



Psranieccr 3 



Previous contents 



Resull 



SP 



SP 



Parameter 2 reprdsente le 

deuxi&me param&tre. 
Para/rKfer^ repr-^semele 

troisifemeparamStrc. 
La fl&che prdsente k c6l6 du 
mot 'SP' reprdsente le poinieur 
de pile. 

Le deuxitme Previous contents 

reprdsente le contenu de la P''^ 
aprfes I'appel. 

Result reprfisenie le contenu de la pile apr^s I'appel. 11 s'agit 
1^1 du rdsuliat de I'appel. lorsqu'il y en a un. 
La flfeche prfisente k c6t6 du mot 'SP' reprdsenle le 
pointeur de pile aprfes appel. 

La fonction appelSe dans cet exemple se code comme suit : 
Result - MaFonction {Paraineter2, Parameters) ; 

Quelques appels et leurs paramMres 

Appel sans pararafetre ni retour d'informaiion : 
TLStartVpO: 

Appel avec un paramfcire sur deux octets, sans reiour 
d'information : 

»indStartUp (MonID) ; 

Appel sans paramfetre mais avec un retour d'information 



sur 2 octets : 

UonID - mStartUpO ; 

Appel avec plusieurs paramStres ct un retour d'information 

sur 4 octets ; 

ZPHandle = NewHandle( 

(long! OxBOO, /* m&Tioire dewand&e */ 
(word) MonID, /' IDentification */ 
(word) attrSank 

+ attrPago /* attrlbuts */ 

+ attrFixed 
+ attrLocJced 
(long) 0); 

Appel avec plusieurs paramfetres et plusieurs retours 
d'informaiion : 

VDivideStruct = UDivids (dividend, divisor) ; 

Comment r4aHser un programme ? 

■ Tout d'abord, il faut inclure les fichiers dc definition 
des outils qui seront utilisds en fonction du type 
d'application. Cci ordrc se priSsenle sous la forme : 

tinclude <types.h> 

■ Ensuite, il faut d&iarer les variable, toutes les variables 
globales. II est possible de construire un programme en 
utilisant plusieurs fichiers. Si une ou plusieurs variables 
globales — ou fonctions — sont situ&s dans un autre fichicr 
et utilisfi dans ce source, il faut le signaler au compilateur. 
La d<Sclaration extem indique au compilateur que ce mot 
est d^fmi dans un module exteme. A la suite de ce mot cl5, 
faites apparaitre les diffSrenies variables — du memc 
type— ou fonctions. 

■ Enfin, fiiablissez les diff^rentes fonctions avec. en 
dernier, la fonction main () . 

Comment dStecter une erreur ? 

II existe une variable (_tooIErr) qui est ddjS d6clar6e et 
qui re^oit le numfiro de I'erreur k la sortie de I'appel oulil. 
Cclte variable vaut s'il n'y a pas d'erreur. et conticnt le 
numfiro de I'erreur stocks sous la forme d'un mot composfi 
dc deux parlies : 

Numdro de I'ouiil ; numiJro de I'erreur. 
Soil I'erreur SQ201 : 
$02 = Memory Manager 

SOI = Numero de I'erreur (Pas assez de mcmoire). 

Comment obtenir de la m4moire ? 

Pour avoir de la mSmoire, il faut la demander au Meirory 
Manager en Utilisant la fonction NewHandleO. Voir plus 

haut un exemple d'uiilisation. II faut initialiser le Tool 
Locator, puis le Memory Manager qui renvoie un numcro 
d'TDcniificaiion qui sera utilise lout le long du programme. 
Chaque programme est responsable de la gesiion de sa 
mcmoire : il la demande et il doit la rendrc au Memory 
Manager quand il n'en a plus besoin et ce avant de donner 
la main ^ un auue programme. 

Menus et options devant toujours etre 
presents dans le "Desktop"? 

Trois menus sont indispensables dans i;ne application du 
type "Desktop" : 
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• Le menu Pomme (^) 
■ Lc menu Fichier 

• Le menu Edition 

Dans chacun de ces menus se trouvent diff^rcnles options : 

ft Une seulc option standard : 

A propos de... Pr&ente la fenStre de copyright 

Fichier, huit options standard ; 

Nouveau : equivalent clavier C5-N 
Ouvrir : Equivalent clavier O-O 
Feriner : dquivalem clavier C-W 
Enregistrer : Equivalent clavier l5-S 
Enregislrer sous... : pas d'Equivalent 
Formal d'impresslon ; pas d'dquivalcni 
Imprlmer... : equivalent clavier C5-P 
Quitter : dquivalent clavier [5-Q 



Edition, sept options standard : 



Edition ^^^^^^^B 


ilnnuler 


ai 


CouDcr 


ot 


Copier 


at 


Caller 


ov 


Effocer 




Tout ttlectionner 


OH 


tIfFicherit grtsse-popier 



MouutDU 


OH 


Ouwrir... 


oo 


Feriier 




[nregistrer 


OS 


[nregisUer sdus.^ 




Options d'inpression... 


loprttier... 


OP 


Quitter 





Annuler : Equivalent clavier C5-Z 
Couper ; Equivalent clavier 0-X 
Copier ; Equivalent clavier G-C 
Coller : Equivalent clavier C5-V 
Effacer : pas d'Equivalem clavier 
Tout sflectionner : Equivalent clavier O-A 
Afflcher le presse- papier : pas 
d'Equivalent clavier 



N'oubliez pas d'indiquer k I'utilisateur quelles options 
contiennent des choix multiples en ajoutant trois points de 
suspension S la fin du nom de I'option. Voir les options A 
propos de.... Ouvrir..., Enregistrer sous... et Imprimer... 

Exemple 

Initialisation et affichage d'une erreur. Ce programtJie initialise 
les oulils "texte", demande 1 block de m^moire de X 
GigaOclets pour gSndrer rcrreur $0201 et affiche : 
Erreur $0201 : erreiiT du Memory Manager, pas asscz de 
mdmoire. 

II doit ^galement quitter proprement en montrant que Ton 
rclache la m^moire attribute au programme par 
DisposeHandls (MLonlD) / 



t include 
Uncludo 
Unci ude 



<locator.h> 
<memoiy.h> 
<texttool . h> 



*/ 



word Touche; /* Pour attante clavier 
word MonlD; /* Identificateur du programae 
handle MbnHandle;/* N^cessalre pour NewHandle 
char Erreur_MessagB [1 { "\pPas aasez de 
memoire" j; 

char Presse_Touche [I = ( "\pPressez une touche 
SVP" ); 

/* Initialisation des outila */ 



init 
{ 

TLStartUp ; 
Erreur I) ; 



/* Pas de paramdtre */ 
/* Teste Line erreur Svantueile */ 

Erreur () ; /* Teste une erreur &ventuelle '/ 

TextStartUpO ; /* Pas de param^tre V 



ErreurfJ,- /* Teste une erreur 6vertueI2e */ 
J 

close /* Eermeture des outils */ 
I 

TextShutDoun ; /* Fenneture du Text Tool */ 
DisposeHandle (MonlD) ^- /* Pour libSrer la 
m&TiDire */ 

MMShutDown ( } ; /*Ferweture du Mernory Manager*/ 
TLShutDown ; /* Eermeture du Tool Locator */ 
) 

DoItNow!) /* Partie principale */ 

{ 

MonHandle " NewHandle (~1L, tbnID, OL, OL) 

/* Beaucoup de para/nitres */ 
Erreur ; /* Teste une erreur Sventuelle '/ 
WriteLine (Erreur_Message) ; 
WriteLine (Presse Touche)/ 
Touche - ReadChar ( (word) 0) ; /* Attemte 
clavier */ 
} 

Erreur () 

( 

if (!_toolErr) /* Si _toolErr <> 
*/ 

{ MriteChar (0x07);)/* 7 = Control-G, 

bip */ 
I 

main () 
*/ 

{ 

initO; 
outils */ 
DoItNow : 
*/ 

close I) ; 
V 

; 



/* Progransne principal 

/* Initialisation des 
/* Fonction principale 
/* Fermeture dea outils 



Un maestro pour votre 
micro... 

Du nouveau chez Mlcrolatid. II s'agit de Microiand 
Maestria, un logiciel de gestion comptable et 
analytique des plus puissant 

D'utilisation simple, Microiand Maestria assure !a 
communication en r^scau et peut etre ouvert sur 5, 
voire 16 utilisateurs simulianiment. sur Mac ou PC. 

Un banc d'cssais dans le prochain numdro. 

Prix public : 14 050 F TTC, ou 8 0245 F TTC en 
^change de votre ancien logiciel de comptabilitS, 
quel qu'il soil. 

Disponible dfes fin septembre, ou h Apple Expo. 
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S^rieCScBBan 

Si vous ne voulez pas bronzer idiots, soyez redacteur dans Pom's ! C'est au 
bord d'une plage du Maroc, que j'ai redige ces Hgnes. Les doigts de pieds 
en 6ventaii, la tete a I'ombre, sirotant un soda, rien de tel pour rinspiration. 
Et pour se rendre compte aussi, a quel point un ordinateur peut fasciner, 
surtout si c'est un Mac. 



Les tests de ces News seront surtout 
'Inics', et outre les petits plus de ce 
mois qui en component un certain 

nombre, cc n est pas moms de cinq 
programmes commerciaux sous cette 
forme, que j'ai essayfis pour vous. 
Reste que Ton est toujours en pleine 
jungle de ce cdtd, Apple ne donnant 
aucune sp6cilication technique pani- 
culifere quant k r&riture de celles-ci. A 
force de patches divers sur le syslfeme, 
d 'interruptions en tous sens, il n'est 
pas un utilisateur n'ayam eu un Jour 
maille k pariir avec des incompa- 
libilitiSs soil enlre Inits, soil avec des 
applications traditionnelles. Apple 
n'est d'ailleurs pas en reste, Macro 
Maker Iui-m5me en est I'exemple le 
plus connu. Souhaitons que soil 
rapidement remis de I'ordre dans ce 
syst6me, pour qu'enfin on en finisse 
avec ces inierminables stances de tests 
pour trouver les coupables, lorsque 
s'aHche le tant redout^ dialogue de la 
bombe. 



C-Cube 



Je n'ai pas voulu, dans ce num^ro, 
faire la revue pr£liminaire d'Apple 
Expo, prfifSrant r6server un compte 
rendu sur ce que j'y aural vu de 
marquani, dans le prochain num^ro. Ce 
que je peux n^anmoins vous dire, c'est 
que cette fSte consacrfe ^ 99,99 % au 
Mac, sera haute en couleurs. Ce 



domaine est en pleine explosion, avec 
des cartes 32 bits toujours plus rapides 
et moins chferes, des grands ^crans 

rancnissam a la baisse la barre des 
20 000 francs, des pSriphiSriques 
d'impression de plus en plus 
perform ants. C'est d'ailleurs autour 
d'Alain Rossman, ancien de chez 
Radius, qu'une nouvclle technologic 
est en train de nallre : le C-Cube. Ce 
nom cache un processeur de 
compression d'image qui gr§ce ^ son 
logiciel int6gr6. permettiad'obtenirdes 
taux de reduction des fichiers 
graphiques en couleurs dans un rapport 
de 20 & 1, en une seconde. Cela 
signifie que tout ordinateur 6quipd de 
ce composanl pourra ramener la taiUe 
des fichiers, surtout en couleurs, de 
plusieurs m£ga-octets ^ seulement 
quelques centaines de kilo-octets, et 
ceci sans perte de quality dc I'image 
d'origine. D'autre part, cette com- 
pression/decompression se fera de 
mani^re quasiment transparente, vu les 
viLesses atieintes par la puce. 

Ce systfeme de compression des 
donn£es suit les normes du JEPG 
(Joint Photographic Experts Group), 
faisani partie du CCIT/ISO, ce qui 
devrait en faire un standard. A ternie, 
cela permettra d'intSgrer des images 
u^s haute resolution, ou meme des 
animations, directement dans les bases 
de donn6es et autres, sans elre penalise 
par des fichiers disques gigantesques. 

On espftre (on en parle d6j4 chez 



Apple) voir ce composant int€gr6 
directement sur la carte m6re des Mac, 
Dans une ou deux generations ? A 

defaut, C-Cube vend deja un coeur 
logiciel, qui perniet k toute application 
d'exploiter ce processeur. Et le 
systfeme 7 ? Les mauvaises langues 
affirment que "7" &gure le temps 
maximum, en minutes, avani de 
prendre une bombe. Esp6rons qu' Apple 
saura bient6t les dementir. Pour ma 
part, j'ai eu sous la main une version 
beta de ce systfeme, et il devrait tenir 
une tr&s grande partie de ses 
promesses. Wait and see ! 



LaserMax : 
une premiere 



Nous etions 300, et par un prompt 
renfort. nous nous vimes 800 en 
arrivant au port imprimante. C'est ce 
que pourraient dire les points d'une 
Laser Apple NTX, aprfes lui avoir 
ajoute le controleur Lasermax 
MX6. Mais ne s'arretant pas en si 
bon chemin, LaserMax offre h son 
catalogue une imprimante 1 000 dpi. 
incluant 135 polices, pour un prix de 
8 000 $. Les Linoironics commencenl 
k trembler sur leur monopole. 
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Ecran Sigma 19" 
L-View 
multimode 



Un petit die vaut-ii- 
mieux qu'un 
tonneau ? 

Pourquoi pivolcr lorsque vous pouvez 
cliquer ? C'est ainsi que s'afiiche la 
pub pour eel &ran dans les joumaux 
am^ricains. En eftel, la rdsoluiion 
variable de eel 6cran permel de changer 
le format de I'affichage : 36. 46, 60, 
72, 92, 120 dpi (dots per inch) sonl 
accessibles par FKey, soit respec- 
livcmeni I'^quivalenl d'un ^cran de 
Mac SE, celui d'un Mac 11, 20 % de 
grossissement, le vrai WYSIWYG sur 
une ImageWriter, unc page A3, el une 
laille de 1 664 x 1 200 pixels. Ce ne 
sonl pas moins dc six &:rans qui sonl 
proposes en un seul. La viiesse de 
rafraichissement de 92 heru garanlil 
une quality d'image parfaile dans tous 
les modes. Le logiciel associd coniienl 
un geslionnaire de menus pour en 
modifier dimension ct accessibility, un 
agrandisseur de curseur, un proiecteur 
d'6cran el un utilitaire dc copie d'6cran. 
Le loui pour 2 000 S. La guerre des 
6crans mullifonclions est ouverle... 



Dynamac 



Un SE/30 dans une 
nialiette 

Prenez un SE/30. D6montez-Ie. 
R&up^ rez la carte mfere. Metlez-la dans 
une carrosserie plate. Rajoulcz un 
modem 2 400 Hayes / 4 800 envoi de 
fax. Connectez dessus un dcran 
Slecb-oluminesceni de 640 x 400 pixels 
qui fera capoL Insdrez un disque de 40 
m6gas el 2 mfigas de RAM. Chargez 
quelques utilitaires, genre agenda, 
camet d'adresses. Refermez le tout, 
vous avez le nouveau Dynamac 
SE/30 portable. J'oubliais, il est en 



plus livrfi avec un organiseur 
filcctronique, et un c5blc pour le relicr 
au Mac. Le tout pour 9 000 S. En 
prime, le Dynamac offre la possibilild 
de brancher dessus un ficran 1 3 pouces 
couleur Apple. En option, un choix de 
disques internes jusqu'i 200 m^gas, et 
8 mSgas de RAM. Hfilas, mSme si sa 
carrosserie peut Ic laisser penser, le 
Dynamac n'est pas auionome el 
n&essiie impdrativemeni une prise de 
coiuanl pour fonclionner. 



Microsoft Mall 



Une des premieres applications d'un 
r^seau est sou vent la mcssagerie. Ce 
logiciel pcrmet entre diff^rents usagers 
de s'adrcsser du courrier el/ou des 
documents sans circulation de papier, 
quasi-instanian^ment. Si louies les 
messageries du marchd possedcnl ces 
fonclions, elles se dislingucnl essen- 
liellement par leur facilili d'utili- 
sation, d' administration, el ouverture 
sur I'ext^ieur. 

Microsoft s' est rapi dement lanc^ 
dans ce typique logiciel d'entrcprise. en 
reprenani la mcssagerie InterMail. 
D'abord retouchfi pour dcvenir 
Microsoft Mail 1.0, unc rcfonte totale 
a &t& opdrfie pour voir naitre 
Microsofl Mail 2.0. La 
philosophic de Microsofl Mail est de 
pouvoir s'adapter k tous types de 
rdseaux. du plus petit (quelques Mac), 
au plus grand avec plusieurs centaines 
de postes. Pour aulant, c'esi surlout ce 
type de configuration qu'affeclionne 
panicu-liferementceite mcssagerie. Son 
adminisiraLon cenlralisSe, la mise k 
jour aulomatique des lisies d'uiili- 
sateurs, la possibility avec HyperCard 
de cr6er ses propres 6crans de saisie, 
son ouverture vers les aulres systSmcs 
et serveurs de messageric, son accfes 
direct par Excel, Word, PageMaker, lui 
confferent une puissance indgalSe. Mais 
voyons plus avant comment loul eela 
fonctionne, 

Une mcssagerie, c'esl d'abord un 
serveur ct des clients. Pour inslaller le 
serveur de MS Mail, une disquelte, un 
double-clic sur I'installateur ei hop. 




c'est prgl. Ce serveur pourra se Irouver 
sur n'imporic quel Mac, y compris un 
serveur ApplcShare. Pour les clients, 
m6me syst6me ullra-simple de mise en 
place. Configurer le serveur, ddfinir un 
moi de passe, y enirer la lisle des 
utilisaieurs, ne rebuiera pas le 
responsable informaiique le plus 
reticent au Mac. Si, si, J'en connais. 
L'accfes d'un ulilisaleur S la mcs- 
sagerie, se fait par le menu ct sur 
les gros rfiseaux ^ plusieurs centres 
serveurs, le choix d'un de ceux-ci par 
le Sdlecteur, Aprhs avoir rddig^ un 
message, il est possible d'y attacher un 
fichier (h61as un seul). Ce message 
peut-Stre vocal. Un texte enregistnS par 
MacRecorder (boltier de digilalisaiion 
de sons) sera relu chez le destinalaire. 
Le message et I'fivenmel fichier altachfi 
Ctanl siocfces sur le serveur, peu 
importe que le(s) Mac deslinataire(s) 
soit branches. Le courrier lui 
parvicndra. d6s que le Mac sera 
branchfi. 

MS Mail, c'est aussi une passerelle 
vers les aulres sysiSmes, el en par- 
ticulier MS/DOS. Les incompa- 
libililds noioires de la version 1 
appariienneni ddsormais au pass6 el 
MS Mail se rfivfele d'une parfaile 
stability. J'aurai cenainement a vous 
reparler de cc produit hors pair. 



SoftPC : Le Mac 
fait le gros Dos 



Avez-vous d^j^ utilisd une machine 
dite compatible ? Moi si. mon Mac. Je 
plaisante ? Pas du tout, j'ai mis un PC 
dans mon Mac. Oh, rassurez-vous 
uniquement pour essayer. Cet essai 
m'a, s'il le fallait encore, irr6m6- 
diablement convaincu de la superiority 
du Mac. Bref, j'ai testy I'ymulateur 
SoftPC. Celui-ci, sous forme logiciel, 
permet ^ un Mac de se prendre pour un 
PC XT. Nc reculant devanl rien pour 
vous, j'ai acheid un bouquin sur le 
DOS, indispensable, pour pouvoir 
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faire autre chose que d'allumer un PC 
et encore. , . 

J'ai done double cliqu€ sur I'lcone de 

SoflPC, ei me suis reirouvfi devanl 

une fenStre ou un tas de irucs 

6soi6riques. doni j'apprendrai plus tard 

la signification, sont apparus ^ I'ecran. 
I...- >. .. 

J'ai eu droit i : 

Oecho off 

Bad command or file name 

Installing Insignia MOUSE : 

Device Driver 3,6 
COMl: 9600,n,B,I,- 
C: \>ver 

MS-DOS Version 3.30 
C:\> 

Puis, plus rien. Renseignement pris 
auprfes d'un sp&ialiste, SoftPC venait 
d'inslaUer MS-IX:)S 3.3 h la place de 
mon MacOS. Pas tout k fait 
compl&temeni, car il restait unc barre 
de menu toule Mac, avec meme un 
menu Edition qui fonciionne ! Pas k 
rint6rieur de la fenetre de I'Smulateur 
lui-m&me, mais vers louie application 
Mac accepiant le "CoUer". Un auu-e 
menu est venu me rappeler, combien 
rauto-configurabilit^ du Mac est une 
chose naturelle et merveillcuse. Sur un 
PC, chaque unit€ de disque doit elre 
ddclar^ par I'utilisateur, sinon ricn ne 
marche ! 

Aprfes avoir fait joujou k coup de DIR, 
qui permet d'afScher le catalogue d'un 
disque, j'ai fini par trouver un Basic, le 
GWBasic, bien connu dans le monde 
des "zib^hdmes". Divers tests, k coups 
de boucles FOR/NEXT, m'ont vite 
confirmd ce dont Je me doutais un 
peu : On n'fimule pas impungment un 
autre processeur avec un logiciel. (^a 
rame. Faire toumer quelque programme 
que ce soit avec relSve d'une attitude 
masochiste, si le seul fait d'utiliser un 
PC ne suffisait pas. Par contre, un 
emploi int€ressant rdside dans les 
possibilitSs de transferts de fichiers et 
aussi dans la possibiIit6 d'utiliser un 
Mac pour paramfitrer un serveur 
3Com, ce qui doit Stre fait en grande 
partie k parlir d'une machine 
MS/DOS. 

Si un ^mulateur par logiciel est 
cerfainement une ^norme performance 
de programmation, il n'en reste pas 
moins que I'utilisation de SoflPC, ne 
peui &tre que ponctuelle. Ce peut eirc 



Mac prend le relais ! 

Les Macintosh de la s6rie II poss^dent une fonctionnalit^ 

int^ressante. lis peuvent etre allum^s par le clavier, et eleints 

par le menu 'Eteindre' ou 'Shut down' du Finder. 

Contrairement aux Mac 'compacts' cette extinction est 
>_uiiLiaiiciiiciu auA iviai, (juuipauLb cciie exitnciiun est 

complete. Ces Mac possMeni en outre un renvoi de prise 

command^e 220 V k rarri&re. En g6n6ral, on y connecte 

r^cran, ce qui permet de I'allumer et de reteindre en meme 

temps que le Mac. 

Rapidement m'est venue I'idfe d'utiliser cet interrupteur, 
pour Eteindre (ou allumer) la totality de mes p^riphdriques 
(deux disques durs extemes, un scanner, une imprimante et 
j'en passe), la lampe de bureau qui ^claire le tout, et le 
ventHateur du placard dans lequel j'ai enferme mes disques 
pour travailler dans une ambiance plus feutr^e. Ne sachant 
pas exactemeni quelle ^tait la puissance de coupure de 
I 'interrupteur du Mac, j'ai preKre utiliser une solution simple 
et sure pour d^connecter tout ce beau monde. 

Ayant fait profit^ de ce true r^cemment, aux abounds de 
Calvacom, je me devais de vous en faire part. II s'agit d'un 
relais d'une puissance de 10 A, doni la bobine est aliment^e 
par la prise arri&re du Mac. Plus qu'une description verbeuse, 
je vous ai fait un petit schema qui vous d^crit le systfeme. 

J'ai personnel lement plac6 le tout dans un petit boitier en 
plasiique, sur lequel j'ai mis une prise type 220 V murale, qui 
disuibue le 220 V commande par le Mac a travers le relais. 
Deux trous laissent passer les cables secieurs qui vont, pour 
le premier se connecter derrifere le Mac, et le deuxieme 
amenant le 220 direct. Tous ces composants se trouvent chez 
les revendeurs de pieces d6tach6es 61ectroniques dont vous 
pourrez trouver les adresses k profusion dans n'importe quel 
'le Haut Parleur', revue bien connue dans tous les kiosques. 



Cout d'un tel systeme : une petite centaine de francs. 



A.S. 



Prise arri^re du Mac II 



Relais 10 A / 220 V 



'l' 



T 



A- Allumd avec le Mac 

B- Aliumd avec I'extinction du Mac 



A B 

T T T 
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aussi, d tout possesseur de Mac, un 
excellent oulil pour apprendre I'univers 
d'en face. C'esi pour ma pari 
rutilisation que je comple en faire, 
pour pouvoir £venluellement me 
reconvertir, ou plus sdrieusement, ne 
pas mourir idiot. 

Post-scripium : its sonl mime allis 
jusqu'd 4muler le bruit de casserole du 
lectew d un PC au d^marrage .' 

Editcurlnsigna. 

Dislributeur en France P-Iag^n^rie, 



Dos Mounter 



Donnez un bureau 
aux n^cessiteux 

Pour parfaire complfetement I'image du 
Mac de grand "Kdfirateur de plates- 
formes hii6rog6nes", Apple a eu la irfes 
bonne idfie de monler dSsonnais dans 
Lous les Mac un lecteur de disqueCles 
1,44 m^gas, capable entre autre de 
rclire les disquelies MS/CtOS. Manque 
finorme : il n'ejtisie pas de possibiIit6 
en standard de monier sur le bureau une 
disquetle de ce type. La solution lourde 
consiste a passer par AFE (Apple File 
Exchange), pour visualiser le contenu 
d'une telle disquelte. 

C'esl une Init ^crite par Dayna, 
socidt^ bien connue par ses lecteurs 
MS/DOS pour Mac, qui apporte une 
riSponse dlSganie au problfime. 
L'insertion d'une disquette MS/DOS 
1,44 m^gas provoque la citation d'un 
bureau virtuel, avec affichage des 
Schiers sous forme d'icdnes. Ces 
icones sont manipulables de mani^re 
tout k fait traditionnelle. Un transfert 
de fichier se fera par simple glissement 
d'icOnc. Resle qu'aucune traduction 
n'est faite ; ccpendant, un fichier dont 
les programmes existent dans les deux 
mondes pourra 6tre relu directement. 
J'ai essay^ avec des fichiers Word et 
Excel, aucun difficuItS. Les Gchiers 
lexte sont lisibles par n'importe quel 
6dileur de texte. II est mSme possible 
par transfer! d'icone, de charger un 
programme Mac sur disquette 
MS/DOS et de le lancer k partir de 
celle-ci. Pour formalcr une disquetle. il 



sera n^cessaire de passer par AFE qui. 
selon qu'il s'agit d'une disquetle 
double density (DD) ou haute density 
(HD), formate en 720 Ko ou 
1,4 m£gas. Le Mac est vraiment 
devenu fecum&iique. 

Posl-scripium : mais c'esl bien le 
mains, grace d AFE vous pouvei 
aussi formaler. transfirer, voire 
traduire sous ProDos. 



Complete 
Undelete 



Un utilitaire qui fait 
les corbeilles 

Un peu de technique sur le mode 
d'^riture des fichiers sur disque. Un 
disque dur (ou une disquette) est 
d£coup€ en blocs logiques. Lorsque 
Ton fait appel au syst&me pour 
enregistrer un fichier, celui-ci proc&le 
de la manifere suivanie. Tout d'abord, il 
commence par repdrer les blocs du 
disque non riservfe aux auires fichiers. 
Ces blocs ne sont pas forc^menl 
contigus. Ensuite, il 6crit physi- 
quement les octets fonnant le fichier. 
Pour finir, il ficrit dans une sorte de 
table des mati6res, dilc table d'allo- 
cation des blocs, la suite des blocs 
utilises, et pour quel fichier. Pour faire 
disparaitre un fichier, le systime ne 
fait qu'effacer son nom dans la table 
d'allocalton, en declarant les blocs 
pr6c6demment occupSs comme 6lanl 
libres. Conclusion : si au moment 
d'effacer un fichier vous effecUiez une 
copie des donndes contcnucs dans ta 
table pour ce fichier, il suffirait de les 
remcllre en place, pour le voir 
rdapparaiu-e. C'est ainsi que proc^ent 
les programmes de r&up6raiion raplde 
de fichiers "poubellfis", 

Parmi ces programmes, au com- 
mencement il y avail MacTools. GrSce 
k une Init, tout appel ^ la corbeille 
6tait intercept^ et la trace du fichier 
6tail priiservde pour une reslauration 
uliSrieure. SUM, avec une interface 
amfiliorSe, fait quasimeni la mfime 
chose, Mais voili. I'un ou I'aulre 




programme est incapable de recouvrer 
quoi que ce soil, si un nouveau fichier 
est venu r66crire des informations sur 
les secteurs du fichier mis h la 
corbeille. C'esl sous la forme d'un 
CDEVquc Complete Undelete de 
First Aid regroupe ^ la fois le 
scrutaleur de fichier el le r&;up6rateur 
proprement dit. Au premier dSmanage, 
le CDEV installe un fichier qui, 
suivant la taille choisie, sera charge de 
conserver la trace des fichiers effaces. 
L'appel de ce fichier, toujours par le 
tableau de bord, donne la liste des 
demiers fichiers effaces et aussi, leur 
dial de reslauration possible. Si les 
blocs d'un fichier n'onl pas £t€ 
enti^rement rddcrits. Complete 
Undelete propose tout de mSme 
d'essayer d'en rdcupfirer une partie, en 
rempla^ant les blocs abimds par des 
blocs vides et/ou en extrayani 
I'dventue! texte rdsiduel. Indispensable. 



DiskEpress 11 



DGV : disques d 
grande Vitesse 

Consequence de ce que je vous 
ddcrivais plus haul quant k I'^criture 
des fichiers, un disque dur, apr6s 
quelques semaincs d'uLlisalion inten- 
sive, ressemble S un veritable morceau 
de gruyfere. Les teles de lectures 
doivenl courir de blocs en blocs, 
souveni dloignSs pour charger fichiers 
el programmes. Les performances d'un 
disque peuveni considiSrablemenl chuter 
^ cause de ce ph£nom6ne. Une seule 
solution, optimiser le disque avec un 
utilitaire. 

Le principe de ce programme est de 
permuter les blocs de telle sone que les 
fichiers occupenl, dans la mesure du 
possible, des blocs contigus. Le 
premier ^ mener ^ bien cette tSche, 
Disk Express 1, souffiiBit de deux lares 
rddhibitoires. D'une lenieur ddses- 
pdrante, il fallail en plus imp6ra- 
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dvemenl faire une sauvegarde du disque 
avanl loute opUmisalion, car si une 
panne secteur survenaii pendant une 
permutation, les donnSes du disque 
emier 6taii perdues. D'autres pro- 
grammes dont SUM TuneUp, panic de 
SUM. ont partiellement amdliorfi les 
choses, en particulier au niveau de la 
vilesse. Mais I'iddal, ne serait-ce point 
dedisposerd'un programme S mSmede 
faire ce travail en tiche de fond, sans 
risque pour les donnSes ? 

C'esl ddsormais chose faite avec 
DiskExpress II. Sous forme d'lnil 
— une de plus — ce programme se 
chiwge d'optimiscr voire disque, sans 
que vous en vous rendiez compte, avec 
une totale sficurit^. Le programme, 
gr^e k une cuisine qui Jui est propre, 
travaille avec un filet de proleclion 
sous la forme d'un fichier invisible dit 
"rescue", qui permettra k DiskExpress 
de rcconstiiuer Ic disque, m2me en cas 
de crash. Capable en plus d'optimiscr 
un disque serveur qui, par essence, est 
soumis de mani^re imponante au ph€- 
nom&ne du gruy^ire, DiskExpress II, 
fail panic de ccite nouvelle gfindration 
de programmes qui allient la simplicity 
et I'efGcacit^. 



Souvenir 



L'annuaire du rdseau 

Un camec d'adresses composeur. Un de 
plus me direz-vous. Non, celui-ci 
prdsente deux particularii£s : la 
premi&rc est qu'il est fran^ais, et la 
deuxi^me est qu'il est sous forme 
d'Init. Les consequences en sont la 
gestion du modem int6gr6 du Minitel 
et une accessibiliie simplissime. J'ai 
apprdcie Souvenir pour sa puissance 
et sa modularity. 

Contrairemeni ^ beaucoup de camets 
d'adresses de ce type. Souvenir permet 
de manipuler plusieurs fichiers 
simultandment — un pop-up menu 
permettant de s61eclionner le bon — 
dans la lisle de ceux ouverls. El, 1^ ou 
il surpasse tous les autres, c'est que 
Souvenir peut ouvrir des fichiers sur 
F^seau, avec faculi^ de recherche quasi- 



instantan£e sur tout fichier ouven. Au 
niveau de la composition tyidphonique. 
Souvenir g^re dix tables d'indicatifs 
pryrdglfees, et modifiables k volontd. 
Ce sera ainsi un compagnon mer- 
veilleux pour un portable, un c^ble en 
option vous dispensant de quelque 
modem que se soil pour la num£- 
rolalion. Ou que vous soyez sur la 
plan&te, un changement rapide des 
indicatifs par la table vous donnera une 
composition auiomatique sans faille. 
Les fiches du carnet d'adresses 
pcnnettenl de rentrer les informations 
classiques ; nom, prdnom. profession, 
soci^td. adresse, num£FO de t^iyphone 
et num£ro de fax. Une zone de 
commentaires de 3 071 caractfires 
3Utoris£s vienl finir la fiche. 

Una autre force de Souvenir est son 
ouverlure sur I'exlfirieur grace a 
HyperCard el des routines externes 
d'interface impon/export (vers 4D par 
exemple). La pile HyperCard n'6iant 
pas verrouiUie el largement com- 
ment^e, il vous sera facile de vous en 
scrvir comme base personnalisable. Un 
accessoire de bureau facultatif, peut 
Stre insialiy pour appeler Souvenir 
depuis le menu 4. Une aide en ligne 
complete et une pile de visile guid^e 
viennent parfaire le touL 

Au chapitre des d^fauis, j'ai regrellS le 
choix d'un pop-up menu unique 
comme barre g^ndrale des menus, 
obligeant k une navigation fascidieuse 
pour aller chercher un item. J'aurais 
souhaity aussi pouvoir param^trer la 
combinaison de touches (deux fois la 
louche commande) qui appelle le 
programme. La gestion, outre celui 
d'un fax, d'un seul numdro de t6!6- 
phone par correspondant, ainsi que 
I'absence de recherche sur la rubrique 
commentaire, sont plus ddplaisants. 
Des ddfauls de jeunesse qui devraieni 
etre facilement corrig^. Dernier point 
k souligner. Souvenir n'esl proi6g€ 
qu'en utilisation rdseau. Peut m6riier 
sans conleste une place sur votre 
disque dur. 




Exposure 



La bonne image de 
vos ^crans 

Un dernier ulilitaire sous forme 
d'INIT/CDEV, le plus fabuleux 
copieur d'6cran jamais rencontrfi : 
Exposure. Tout le monde connalt les 
combinaisons de touches 
Command-Shift-3 et Command- 
Shifi-4 qui donnent respeciivement 
une copie d'dcran sous forme d'un 
fichier MacPaint, ou une impression 
dudit 6cran sur une ImageWriier. Si 
cette fonclion suffisail & peu prfes sur 
les Mac 512 et Mac Plus, avec les 
grands ^crans et la couleur, tous ceux 
qui cm eu k faire ce genre de d'image 
se soni trouvds face k des liimlalions 
passablemenl fnislranies. 

Car Exposure, ce n'est pas seulemenl 
un copieur d'ficran compatible tous 
ficrans, y compris menus et pop-up 
menus d6roul€s. C'est de plus un 
dditcur puissant de cette copie. Lors de 
I'appel d'Exposure par Command- 
Shift-3 — combinaison de touches par 
ailleurs configurable depuis le tableau 
de bord — I'^cran se fige sans le 
curseur, el une palette flottante avec 
des oulils a la MacPaint apparait. A 
partir de 1^, loutes les fantaisies sont 
permises avec cei dcran. Selection 
d'une partie de I'ficran, inversion, 
ddtourage, encadrement, ajout de texte 
avec un veritable traitemeni de texte 
— y compris variations typographiques 
dans le m&me bloc de lexte — effet de 
d^coupe crantde avec controle du 
craniage, effacement, ajout de formes 
gdomi^Lriques ou libres avec moiifs, 
rien n'est oubli6. Le programme 
permet aussi d'isoler un menu ou une 
fenetre. Vous pourrcz eslamper un 
curseur ou bon vous semble, dans le 
module de votre choix. Une option 
loupe, permet de travailler au pixel 
pr^, et la couleur aussi est traitde. 

Une fois voire &:ran retravaillfi dans 
lous les sens, le choix de sauvegarde 
est proprement prodigieux : Presse- 
papiers. Album, six modules de 
fichiers bit-map dont MacPaint. 
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FullPaint, Canvas, six modules de 
fichiers PICT gvenlueilement en 
couleurs, possibilil^ de r^gler la 
densii6 des gris. Brcf. si vous avez i 
fairc des copies d'^crans, il est certain 
qu'Exposure est I'utilitaire qu'il vous 
faut. 



Agen'DA 



Mais ou est I'agenda 
du patron ? 

— Bonjour Mademoiselle, quand 
pourrais-je avoir le ptaisir de renconlrer 
Monsieur occup6 ? 

— Ne quioez pas, je vous passe son 
assislanle. 

Dix secondes, irenle, une minute, 
parfois beaucoup plus . . . 

— Que d£sirez-vous Monsieur ? 

— Quand puis-jc voir Monsieur etc. 

— Ne quitiez pas je vais chercher son 
camel de rendcz-voos. 

Re-attenie... 

— DSsol^ Monsieur, je ne trouve pas 
son agenda, il est en rendez-vous 
extSrieur. pourriez-vous rappeler 
ult^rieurement ? 

Bilan, dix minutes, voire souveni 
plus.deperdues. 

Solution ? Un camet de rendez-vous 
panagcable, sans avoir quitter son 
posie. Ce produit existe, il s'appelle 
Agen'DA. Sous forme d'un acces- 
soire de bureau, Agen'DA, quand on le 
sollicite, s'ouvre sur la page d'agenda 
du jour d^oup&e en quart d'heure. A 
droite de la page, la feneire de 
saisie/consultaiion des rendez-vous. 
Une s^rie de boutons-ic6nes au design 
ubs NeXT, singuli5remenl en vogue 
actuellement, servironi & accfider aux 
fonctions diverses d'Agen'DA. Celles- 
ci inlfegrent un rSperloire/composenr, 
une messagerie tr^ sommaire, et un 
m^mophone, pour la prise de 
messages. 

Prendre un rendez-vous se resume £i 
ouvrir I'agenda concemd disponible sur 
le rfiseau grSce k un pop-up menu. 



entrer le nom de la personne h 
renconlrer ci, ddfinir la durfie grice h 
des petits bouions. Appuyer sur la 
touche '■enuec" vatide le louL Dfes lors 
une zone gris6e indique que eel 
inlervalle est occupd, avec rappel du 
correspondant. II est loisibte de bloquer 
aussi une p6riode d'absence, pour 
quelque motif que ce soil. A ce niveau 
des essais, j'ai nol^ deux d^fauts : les 
rendez-vous ne pcuveni Stre pris que 
par tranche d'un quart d'heure, et nul 
moycn de modifier ce param&ire. 
Impossible done de commencer, pour 
Agen'DA, un rendez-vous ^ six heures 
dix, ou moins vingt cinq. D'auU-e part, 
I'uniti des p^riodes d'absence est la 
joumfe. Une absence d'un jour et demi 
n'esl pas trfes simple k noicr. Le 
repertoire et le mdmophone n'appellent 
pas de commentaire particulier et 
remplissent parfaitement leur role. La 
messagerie est du type messagerie ,en 
direct, mais permet en sus I'cnvoi de 
fichiers lexte. 

L'inl6r£t majeur d'Agen'DA reside 
dans le fait qu'il dispose de son pnspre 




serveur de fichiers Agen'DA sur 
r^seau, sous forme d'une Init ti placer 
dans le dossier syst&me du disque 
serveur. Si cet accessoire est d'un 
attrail tr^ limits pour un seul posie, il 
exprime toute sa valeur dans le cadre 
d'un partage des camels de rendez-vous. 
Une suggestion : le couplage ava une 
Init charg6e de rappeler les rendez-vous 
par ouverture automatique d'Agen'DA 
rendrait ce logiciel plus attractif. Auu^ 
point de regret : la protection para- 
noi'aque d'Agen'DA, avcc disquette 
d' installation (qui d'ailleurs n'insialle 
pas I'accessoire lui-m&me) l& oit une 
protection discrete rdseau, emp2chant 
I'utilisation d'un meme programme 
sur plusieurs posies, eut il& largemeni 
suffisante. 

II n'en reste pas moins qu'Agen'DA 
est aitrayant, et apporte une r6ponse 
convenable au probl^me du traitement 



R^ponses aux lecteurs 

J'ai re^u rScemment un courrier me demandant ce qu'il 6tail possible de 
faire avec un Mac 128 K donl la carle logique imt hors service. Ma 
rfiponse est aujourd'hui : la poubclle. En effet, hors de question de monter 
quelque acc616rateur que ce soil sur une cane qui ne foncUonne pas. La 
seule solution aurait Stfi il y a encore deux mois, I'upgrade Mac+, du fait 
que celte misc h niveau ini^gre le changement complei de la carte mfere. 
Mais voilk, Apple abandonne la production du Mac+, et k Theure oD vous 
lirez ces lignes, les demiers exemplaires (s'il en reste) sont vdritablement 
brad6s, puisquc vcndus aulour de 6 000 francs TTC, soil moins chire 
qu'une mtse^ jour. Aulant changer carr^ment de machine ! 

Le deuxifeme courrier conccmait de prfiiendues limitations des fonctions de 
recherches dans File Maker 11. Renseignement pris directement auprfcs de 
mon correspondant membre d'une tr6s honorable profession (se recon- 
naltra-t-il ?), ii s'av&re qu'il se sen d'un version que je qualifierai 
pudiquement "sans documentation". Toutes les questions que se posent 
notre ami trouvenl leur rdponse dans le manuel utilisaleur, et m£me dans le 
fichicr d'aide en ligne livrd avec File Maker. Deux conclusions k cetie 
leitre : la plupan des problSmes rencontres avec un logiciel peuvent Stres 
rfisolus simplement par une lecture attentive du mode d'emploi. De plus, les 
gros et souvent moins gros fidiieurs disposent d'une Hoi-Line pour les 
"utilisateurs enregistres". Deuxio, il n'esl pas trfis convenable de lirer k 
boulets rouges sur un programme, donl la seule presence sur le disque de 
noire lecteur est ill^gale ! La micro-informalique est majeure, il est temps 
que les utilisaieurs le soiem aussi I 

A.S. 
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sur plusieurs posies d'un mgme camet 
de rendez-vous. Pour ce qui est d'une 
uUtisation monoposte, le bon vieux 
carnet papier reste k mon avis 
beaucoup plus souple et efficace. 

Edileur LGDE Connexion. 
Prix environ I 000 francs le posle. 



DeltaGraph 
releve le 
graphique 



Depuis le ddfuni Chart de Microsoft, 
les grapheurs destines h mettre en 
image dcs tableaux de chiffres oni 
presque systfimatiquement 6i6 intdgrds 
aux tabieurs. Wingz, Excel, Fuli- 
Impaci oni tOLS le leur, plus ou moins 
sophistiqu€. Pourtant, en particulier 
pour la conception de graphiqucs vouSs 
li une mise en image rapide et 
recherchde, beaucoup d'uEilisateurs 
aimeraient disposer d'un programme 
plus sp6cifique et plus puissant, sans 
avoir besoin pour auiant d'apprendrc 
les arcanes d'un tableur complexe. 
C'est le but que se 6xe DeltaGraph. 

Ce logiciel permet, & partir d'un 
tableau de nombres, de cr6er tous les 
traces possibles en 2D, 3D. couleurs, 
et autres effets. Les donndes scroni soil 
saisies dans la fengtre d&diie & cet 
emploi, soil importdes k partir de 
fichiers, direciement d'Excel, Trapeze, 
ou en formal SYLK, WKS, ou texle 
ddlimii^ de bases de donnSes. Ensuiie, 
un peiii clic suffil k transformer ces 
chiffres dans un graphique. Le choix 
offen par DeltaGraph pour celte mise 
en image esl de 14 formes en deux 
dimensions, et 7 en irois dimensions. 
On peul notamment trouver les 
graphiques minimum/maximum chers 
aux boursiers. les tables radiales 
comme celle des astrologues, ou plus 
sdrieusement des asffonomes. A partir 
de 1^, toutes les variations sur un 
thfeme donng sent permises. Cela va 
des simples modifications typo- 
graphiques sur les 6liqueltes, la 

pci aoiiiialisatiuii dca anea, les 
redimensionnements en tous genres, 
jusqu'k la mise en couleurs. 



DeltaGraph poss6de en plus une paletie 
d'outils k la MacDraw avec traitement 
des courbes de B^zier, auiorisant ainsi 
toutes les fioritures possibles et 
imaginables. Un graphique indivi- 
dualist pent Sire mis en librairie pour 
resservir en lemps que modele 
uliirieur. On peul meme adjoindre des 
images import6es sous forme PICT ou 
EPSF. En prime, Deliagraph permet 
de tracer des foncUons mathdmatiques. 
II n'est pas possible de ddcrire la 
totality des poientialiids offertes par ce 
grapheur, lanl elles sont dlendues et 
impressionnantes. 11 n'esi pas un seul 
€Umeni qui ne soil modifiable, et le 
tout s'effectue k une viiesse ^tonnante. 

Quand vous saurez aussi qu'S chaque 
tableau de donn£es, il est loisible de 
cr6er autanl de graphiques que la 
mfimoire vive pr&ente le permel, que 
le logiciel pratique les liaisons 
dynamiques ou hot-links, que I'inter- 
facc esi d'une propreiS remarquable, 
vous pourrez considdrer DeltaGraph 
comme le plus puissant grapheur du 
mtMnent pour... IOCS! 



MacPaie 



Les salaires sans 
peur 

Rien de plus fastidieux qu'une paie. 
Tous les mois. c'est praiiquement les 
memes operations qu'il faul rdpdter : 
du calcul des charges au remplissage 
des bulletins, pour un, dtx ou cent 
salaries, I'opdration esl & ce point 
rdbarbative, que les personnes en ayant 
la charge vous confierons facilement 
qu'elles redouient les fins de mois, 
complfeiemenl consacrSes S cette tache. 
C'est aussi pour cela qu'avec la 
comptabilild, qui est encore une 
occupation peu rdjouissante bien 
qu'obligatoire, que I'ordinaieur a dtd 
une bfinddiction. Parent pauvre des 
iogiciels d'enlreprise, le Mac ne 
dispose pas de l'4norme choix qu'on 
peul trouver sur PC (une autre 
utilisation de SoftPC ?). Sculement 
quau^c luglclcls sc |;iiiuigciii ic iiiaiUie 
Mac : Europaie de Broc^liande, 
Fantasia dc Microland, Paie Excel de la 



Solution Douce et MacPaie de BS 
Production occupcnt le crtneau. 
C'est ce dernier programme que j'ai 
essay£ pour vous, Mais avant toute 
chose, il est bon de rappeler que, ce 
que Ton attend de ce genre de 
programme, esl qu'il fasse son travail 
sans erreur, et MacPaie le fail lihs 
bien, le resie est une question 
d'interfaceeld'ergonomie. 

Paramfitrer MacPaie consiste S remplir 
un ensemble de dossiers : employeur, 
catsses de cotisation, codes compiables 
pour une reprise ult^rieure par un 
logiciel de comptabilild, ci surtoul les 
dlfimenis apparaissant dans une feuille 
de salaire. Ceux-ci sont de deux types : 
rubriques de coiisaiions, el rubriques 
ordinaires. J'ai pariiculiferement 
apprccie la facililfi et la souplesse de 
saisie dcs donn6cs dc ccs rubriques, 
accessibles le plus souveni par clic. 
Chaque rubrique de cotisation peul etre 
une valeur par ddfaul ou calculfe, grace 
k un 6diieur de formule complet (mais 
peul-clre un peu Irop rigide). II est 
possible ainsi de param^trer 200 
rubriques. 

Chaque dialogue de saisie comporte 
une aide succincie qui est systd- 
matiquement prdsente, J'aurais, pour 
ma part, pr6fer6 que ces zones d'aides 
encombrantes quand on connaTt bien le 
programme, puisseni n'etre appel^s 
que par un bouton "Aide". Les salari^ 
seroni entrfis sans passer par un menu, 
mais directemem dans les fiches qui 
leurs sont rdservfies. A ce niveau du 
programme, j'ai renconirt quelques 
incoherences d'interface telles qu'un 
bouton "Annuler" qui n'annule rien, 
ou un bouEon "OK" qui, dans certaines 
conditions, pcut faire perdre une saisie. 
Par dfifaul, tous les salaries oni accis S 
toutes les rubriques dehnies et, chaque 
fiche peut Stre personnalisfe par relrait 
de lignes ou modification de bases de 
calculs. Comme loujours, le travail le 
plus fastidieux consiste k entrer la 
premise fois les donnfies nficessaires 
au logiciel. Ces donnfies peuvcnt 
fiveniuellement provcnir d'un fichier 
texte. Mais une fois tout en place, le 
reste esl un jeu d'enfant. Le 
programme, outre les fiches de paye 
daiia uuis romiiiLa Uirn^iciiiA, auiuilsc 

un certain nombre d'6tats, dc lolaux et 
tous les eidments comptables d'une 
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gesiion de personnel. Le menu 
impression souffre malheureusement 
d'une lacune ; il ti'y a pas d'aper;u 
avant impression. 

En dfifiniiive, nous avons 15 un trfes 
bon programme sur le plan de la paie 
proprement dit, mais dont I'inlerface 
esi a amfiliorer et, il n'en faudrail pas 
beaucoup pour qu'il empone com- 
pl&tement mon sufTrage. D'auianI que 
son prix de moins de 1 000 francs le 
met (I la porl^ de toutes les petites 
enireprises. 



domaine — la compression des donnfes 
et I'archivage- — il a trouvd en 
Compactor un maitre. Bicn que 
rinierface de ce dernier soil plus faible 
et qu'il soil I6g6remcnt plus tent, les 
taux de compression (enlre 10 et 30 % 
supSrieurs h ceux de Slufflt). les 
possibilit^s d'extraction d'un £16ment 
d'un dossier, la facilild d'en Taire un 
fichier auto-d&ompaclable, en font un 
produit nettement sup^rieur. Compac- 
tor Slant de plus capable de desarchiver 
les fichiers Stufflt, nous I'adopterons 
comme deuxifeme standard. 
Shareware & 25 S. 




modulaires, ne possfedeni pas de 
tSmoins de fonctionnemeni. ou ceux-ci 
ne sont pas directement visibles. In 
Use vient rajouter dans la barre des 
menus un indicateur qui peut Stre 
different pour chaque disque sur la 
chaine SCSI, qui simulera la diode 
indicatrice non visible de ce disque. 
Cel indicateur peut eiie personnalisS 
par le tableau de bord. Freeware. 



XTND, faudra 
attendre... 



Je m'Stais promis de vous parler dans 
ce numSro de la technologic XTND des 
traducteurs de Gchiers mise au point 
par Claris, malheureusement j 'attends 
encore la documentation que la 
respansabte de communication de 
Claris France m'avait pourtant 
promise. Nous ne lui en tiendrons pas 
irop rigueur, absorbfie qu'elle a dii elre 
dans le ddmfinagement de la sociSid h 
Issy-les-Moulineaux. Ce sera done 
pour un prochain numSro. 



Les plus du mois 



Je renouvetle ici, les excuses que nous 
vous avons formulas, sur la demifere 
disquelte Pom's n° 49 concernant 
r absence de Solarian. Rassurcz vous, 
vous n'avez rien perdu 5 attendre. Une 
nouvelle version nous arrive qui 
corrige les bugs et 1' incompatibility 
avec multifinder dont souffrait ce 
programme. Tout vienl k point... 



Extractor 



Temperament 2.0 




Freeware, deslin^ uniquemeni au 
d^ompaciage des archives Compactor 
et... StuffiU 



Boomerang V.2.02 




Boomerang 

Cet utilitaire qui am^liore les 
dialogues standards de choix d'ouver- 
ture/sauvegarde des fichiers n'est plus k 
presenter. La nouvelle version que je 
vous propose corrige certains bugs, en 
paniculier avec le Portable. Une FKey 
permet dSsormals d'activer/dfisaciiver 
Boomerang, sans passer par le tableau 
de bord. En Shareware. 



Temperament 2 

Ceux qui connaissent Temperament 1, 
que je vous avals propos<S il y a 
quelques mois, se souviennenl que cet 
utilitaire sous forme de CDEV permet 
d'effacer automatiquement les fichiers 
lemporaires ct6is par Word de 
Microsoft qui encombreni inutilemenl 
le repertoire des disques durs. J'ai moi- 
mSme vu dans une socifiifi, le disque 
d'une secretaire en comporter plus 
d'une centaine, rendant illisible le 
contenu du dossier systfeme. Cette 
nouvelle version de Temperament 
d^truit non seulcment les fichiers 
temporaires de Word, mais peut etre 
paramStre pour en faire autant pour 
tout fichier dont on aura indiquS le 
nom. Freeware, ou plutdt une carte 
postale k son auteur. 



Scroll2 V2.0 



Compactor 




Compactor 
On croyait Stufflt imbattable dans son 



In Use 2.0 



InUse 



Beaucoup de disques durs, en 
particulier ceux internes des Macs 



Scron2 v2.0 

Pour metire des doubles flfiches dans 
vos ascenseurs. Mais cette fois, vous 
pouvez en choisir la forme, la couleur. 
en exclure cenaines applications par le 
tableau de bord. Shareware k 15 $. 
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SingleShare 




Un serveur de fichicrs non dddifi sur 
AppleTaUt en shareware ! Et il marche. 
Reprcnd une parlie de I'interface el Ic 
concepl d'AppleShare pour la criSation 
des uUlisateurs et des groupes. Pcrmei 
de ddfinir des privileges d'acc&s aux 
dossiers. Lire aiteniivcmenl la docu- 
mentation joinic avani loule instal- 
lation. Peui allfegrcment remplacer 
PSN, Tops, pour les lout pelits 
r£seauxjusqu'^, disons, cinq Mac. 
Shareware ^ 60 S. 



Analyseur 



Analyseur 07.90 

Ce programme dSdid k tous les 
r^acieurs souhaitani faire ex&uter par 



leur Mac la lourde iSche de Irouver 
r6p<Slitions ct abus de certains mots. 
S'il ne vous transformera pas en 
Victor Hugo, peut-5tre vous aidera-t-il 
k le devenir. Et si quelqu'un dans la 
salle connait bien I'assembleur, le 
Pascal ou le C, il pourra faire ceuvre 
utile k toute la genie des 6crivains, en 
prenant contact avec I'auieur, pour une 
rfi&riture dans un langage rapide de ce 
programme dcrit en Basic. Car tout 
compile qu'il soil, il est assez lent. 
Mais oh combien utile et efficace. Les 
coordonndes de J. C. Dunyach, son 
auteur, sont dans la notice. Freeware. 



Les adresses 



C-Cube Mycrosyslems Inc. 
399 AW Trimble Road 
San Jose CA 95131 
T61 : 408 944 6300 

Dynamac 

Denver. Colorado 
T£! : 303 296 0606 

BS Production S.A 
33710 Samonac 
T&] : 57 68 47 77 



LGDE Connexion 

18, avenue Thomas 
94270 U Kremlin BicStre 
Ta: (1)45 21 07 09 

DeltaPoint Inc. 

T61 : 408 648 4000 

Microsoft 

519 Local Quebec 

91946 LES ULIS CEDEX 

Te!:(l)69 86 46 46 

Sigma Designs 
46501 Landing Parkway 
Fremont CA 94538 
T61:415 770 0100 
Fax: 415 770 0110 

Compose-Tel 

53, rue Sle Anne 
75002 Paris 
Tdl:(l)49 27 09 24 
Fax : (1) 40 15 95 74 

Alpha Syst^mes 
43, chemin du Vieux chene 
38240 Meylan 
T&l : 76 41 84 30 

a 



Norton Utilities 
version 4.5 

Norton Utilities est un ensemble d'utilitaires 
rapides et puissants fonclionnant sur Macintosh : 
correction et rdcupdration de fichiers, 
optimisation de disque. . . C'est le premier lo^ciel 
de Peter Norton Computing, Inc. Parmi les 
fonclions qu'il propose, vous trouverez : 

✓ Norton Disk Doctor ; 

✓ Unerase ; 

✓ Format/Recover File Saver ; 

✓ Speed Disk ; 

✓ Norton Disk Editor ; 

✓ Layout ; 

✓ Des accessoires de bureau indispcnsables; 

✓ Des fichiers de ddmarrage. , . 

Norton Utilities est compatible avec tous les 
systimes de tous les Macintosh. 

Un banc d'essai dans le prochain num6ro. 

PfiJ mc i Hie f TO; g^il ism 111 

revendeurs. 



Les HmeOuts pour AppleWorks 3.0 ... 

Deux TimeOuls de plus pour AppleWorks 3.0 sont 
arrives. Adaptfis k la version frangaise par Daniel 
Lurot, its sont rcgroup^s sur une disquette, disponible 
d6s fin seplembre. 

Les possesseurs de la version 1.4 pourront bdndficier 
d'un tarif de mise k jour : lis trouveroni 6galement sur 
la disquette (3,5 fwuces) la nouvelle version des Time 
OuLs pour AppleWorks 1 .4. 
Cette disquettes comprend ; 

SpreadTools ; SideSpread. 

Lesprix: version compI6te : 600 F 

Tarif Joker : 540 F 

Mise a jour: 300 F 

Tarif Joker : 270 F 

Pour bfJn^ficier du tarif de mise ^ jour, I'original dc la 
disquette TimeOut 1.4 doit Sire retoumd a Pom's en 
m£me temps que votre commande. 

La remise i jour des aulrcs TimcOuts sera disponible 
irfes prochainemenL ^ 



L 
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Les bruits de Cupertino 



B4nSfices 

Selon des sources financi&res dignes de foi, Apple 
Computer, Inc. vieni de faire, au cours du dernier trimestre, 
un b£n^fice net de pr^s de 120 millions de dollars 
repr^sentant une progression de 25 % environ. Le chiffre 
d'affaires lui-meme est moniS ^ plus de 1 milliard de dollars. 

Selon Apple, ces bons rfisultats sont dus en grande partie & 
une forte demandc pour les Macintosh "haul de gamme". 
ainsi qu'k la baisse des prix sur quetques modules de bas de 
gamme. Mais de nombreux observaieurs voieni aussi dans 
ces bdn€fices quelques "retomb^es" des mesures de r&luction 
des couts, mises en ceuvre il y a quelque temps d6J^, h 
I'instar de bien des conslnicteurs d'ordinateurs, par la fimie 
de Cupertino. 

Et le GS dans lout cela ? Notre vision h nous : du moment 
que les micros d' Apple rapportent de confonables bSndfices, 
la gamme II ne semble pas enlrer dans le dtStail de ses 
soucis. 

Le nouveau 

Apple USA vient de se doter d'un nouveau president : 
Robert Puetie qui travaillait auparavant chez Hewlett- 
Packard. Cette nomination a provoqud d'in£vitables 
commeniaires sur I'fivoluiion de la socidtd S Temblfeme de la 
pomme colorde. Beaucoup n'ont pas h^sit^ ^ dire que sa 
venue sera b^nfifique pour combaUre I'firosion qu'Apple a 
subie dans les marches du domestique el de I'&lucaiion. Ah 
bon, il y en a qui s'en rendent compte, quand meme ? 

On investit 

On dit qu'Apple- Europe va dlendre son usine situ6e k Cork 
en Irlande. Je ne veux y voir qu'une coincidence mais il 
paralt que d'autres investissements seraient engages dans la 
mgme region par un cfilfebre consiructeur de micro- 
proces,seurs qui n'hiSsiierait pas k placer, en dollars, une 
somme Irfes rondelette afin d'^tendrc le site qu'il possfidediSji 
prfes de Dublin : Intel soi-meme ! 




Anderson 



Dans Ic m£me temps, et toujours au chapitre des 
investissements, Apple envisagerail d'installer une uniti 
aux Pays-Bas. A I'heure oCi j'dcris ces lignes. aucune 
infonnation n'est en mesure d'indiquer avec prfei-sion quel 
sera exaclemenl le role de cette unitfi. 
Un fait est certain : Apple scmbte vouloir renforcer sa 
position en Europe. A la suite des bouleversements 
politiques que Ton sail et, face au marasme actucl du march£ 
am£ricain, les perspectives en direction des pays de I'Esl 
vonl Stre de plus en plus importantes. II est logique 
qu'Apple tente de s'en tailler une part. La Brme de 
Cupertino ne jurant que par I'interface graphique, gageons 
qu'il ne sera pas trop difficile pour elle d'adapter ses 
machines k I'alptiabet cyrillique. M&me s'il a fallu deux ans 
k Claris (avec I'aide d'un partenaire ?) pour sortir une 
version japonaise de MacWrite II I 

Verrons-nous bient6t dans le tableau de bord du GS une 
option pour un clavier et un affichagc en russe ? Note 
amusanle : un grand magazine am^ricain annonce la tenue, 
du 1=' au 3 septembre k Seattle aux Etats-Unis d'une 
exposition qui a pour nom : "Best of the USSR Software 
and Technology"... M. Sculley s'y rendra-t-il ? 

Et la gamme ? 

Toutes ces nouvelles de la "planSte" Apple n'empSchent pas 
de rappeler qu'actueliement la gamme de micro-ordinateurs 
proposfie par Cugcrlino n'est pas lout k fait claire. En 
dehors des Macintosh "haul de gamme", tr6s chers, qui sont 
assez &:helonn£s en puissance et par lesqucls Apple voulail 
absolument pSn^tfer les grands comptes, que reste-t-il ? Les 
Mac "bas de gamme" pour lesquels rinifirSt diminue 
incxorablement (le Mac Plus et le Mac llx ne se font plus) 
et le GS, pourtani plein de promesses, dont personne ne 
s'avise k pr&iire I'avenir. 

II serait grand temps qu'Apple se d&ide k prendre le taureau 
par les cornes pour se doter d'une gamme de micro 
parfaiiemcnc homog^ne. Ou plut6t de deux gammes : 
Macintosh et System II, les deux pouvani parfaitement co- 
exister, se recouvrir en matifere de performances et assurer 
une "montSe en puissance" progressive depuis I'utilisaieur 
individuel se servant surtoui (et simptemeni) d'un traiiement 
de texte (pour lequel I'^cran-texte peui suffire) jusqu'k la 
polyvalence du Macintosh Ilfx. II y a tout ce qu'il faut pour 
cela chez Apple. MSme si les systfemes d'exploitation de la 
gamme II et du Macintosh sont diff^rents, il serait juste 
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nScessaire que la compaiibilit^ exisle au niveau des fichiers 
de donn^es, ce qui n'esi loujours pas parfaitement realist. 

II scrait grand temps aussi que cesse chez Apple cetie manie 
de consid^rer comme sombranl dans I'obsolescence, voire de 
d^Iaisser purement el simplemenl, certains modules se 
situant en dessous du petit dernier sonant des usines. Non 
seulement tes clients ne suiveni plus, mais I'lmpression 
ddsagrdable de iravaillcr avec un module p^rimS. le regard 
condescendant des concessionnaires ^ qui vous raconiez que 
vous avez toujours voire vieux He. leur indviiable «... un 
Mac, 9a ne vous intSresse pas ?» soni des choses qui 
poussent beaucoup de monde ii allcr voir aillcurs. Un peu de 
modestie voyons. Ce n'est pas de la cuisine la mieux 
6quipde que sort la meilleure soupe ! Et on fait encore 
beaucoup de choses avec un "vieux" lie. 

Malheureusement, le laxisme et les atermoiements qui 
transparaissent dans la politique du construcieiir vis-^-vis de 
certaines de ses machines ainsi que I'impression dc biss^ 
pour compte qu'ont certains de ses anciens fiddles clients, 
premiers acheteurs des modules II, est en train de devenir tr6s 
pr^judiciable pour Apple. Chose qui ne semble toujours pas 
toucher ni ^mouvoir les responsables de Cupertino, 

Verte Erin 

Je ne sais pas si c'est voire impression mais je commence S 
trouverqu'il ya,"un peu beaucoup" de monde en Irlande.en 
ce qui conceme la construction micro-inTomiaLique. Dans le 
dernier num^ro de Pom's je parlais de Motorola qui 
s'installe k Easter-Inch. Ajoutons-y Apple k Cork, Intel pr6s 
de Dublin et probablement d'autres que j'oublie ou qu'il 
serait irop oiseux de ciier. 

Si vous n'eles pas encore parti en vacances, 9a peut vous 
donner une idSe de circuiL Et si vous passez par TEcosse au 
retour, il est probable que vous dviterez, en bon 
applemaniaque, la zone induslrielle de Greenock, sur la 
Clyde, li peu prfes en face du Holy Loch, oii on peul trouver 
une d^pendance d'une grande compagnie dont le sifege est ^ 
Armonk... 

Fuite et semis 

Parmi les nombreux on-dil qui se propagent dans le petit 
monde de la micro-informaiique et les couloirs de 
Cupertino, Iralnait cette nouvelle selon laquelle trois 
anciens employes d'Apple mettaient en commun tes 
moyens et le financemeni dont ils pourraient disposer pour 
cr&r iKie socidtd (encore une !) dont le nom serait quelque 
chose comme General Magic. Peu de nouvelles transpiraieni 
de ce projet et on ne savait pratlquement rien de ce qui dcvait 
£lre dfiveioppd dans cette soci^td. On savait surtout qu'Apple 
d^tenait une participation dans le capital de la nouvelle 
soci£t£. 



El puis un rficenl num^ro d'InfoWorld est venu conRrmer 
tout ccla. La firme General Magic est bel et bien fondSe. 
Dans le trio fondateur on D^uve nolamment Bill Atkinson, 
crfiattur d'Hypercard et employ^ chez Apple depuis 12 ans. 
Atkinson sera le chainnan de la nouvelle socidlfi. 

Les projels imm6dials n'oni pas d£voil6s mais le 
principal est celui-ci : dSvelopper une nouvelle classe de 
produits de communication. Aucune prdcision n'a &16 
ajoutSe, beaucoup de choses pouvant changer, selon les 
annonces faiies 5 ce sujet. II est quand memc indiqufi que 
General Magic uiilisera une technologic qui a 616 ddvelopp^e 
chez Apple sous le nom de code de "Paradigm". Enfin, Bill 
Atkinson conservera des liens avec son ancienne socidtfi en 
dcvenant Apple Fellow Emeritus. La confiancc rfegne ! 

Les deux aulres participants sonl Andy Hertzfeld et Marc 
PoraL Les departs de Steve Jobs et de Jean-Louis Gassde 
ont, dtSciddmcni, donni5 beaucoup d'iddes... Avant que 9a 
toume ^ la contagion, on pourrait pcut-etre suggdrer qu'il 
n'y aura probablement pas la place pour loul le monde. 

Retour au bercaif... 

Parmi les fevfinements qui ont fait ractualild du monde 
Apple juste avanl les vacances, retenons ce fait important : 
Apple a d&idd de conserver Claris dans son giron... Cetle 
annoncc a donnd lieu i mille supputalions et commentaires. 
Bien du monde estimait que Claris aurait, un jour ou I'autre, 
son inddpendance vis-S-vis d'Apple. 

On sail que Claris avail, entre aulres laches, celles de 
ddvelopper des togiciels qui devaieni iravailler en liaison 
avec Windows ainsi que d'^iendre les plates-formes de 
communication entre les produits Apple et les autres 
mondes de rinformattque. micro ou non, Certains 
observateurs pensent que les ddveloppeurs de Claris seraient 
atl6s Crop loin el auraieni montrd pour des produits Strangers 
k Apple un peu trop d'intdrSt. Au point de songer k sortir 
des logicieis fonctionnant directement sous les sysldmes 
d 'exploitation de la concurrence ! Apple a vivemenl ddmenti 
cela. 

D'autres personnes penseni que la manteuvre d'Apple 
s'inscrit dans les perspectives de la mise k disposition, aux 
acheteurs de micro-ordinateurs, dc packages complets 
cwiformdment ii la phOosophie du micro-domestique, Cela 
consisterait k foiunir au client, non seulement sa machine, 
mais aussi les plus importanls logicieis dont il peut avoir 
bcsoin. C'esI un peu le cas, Atjk, de I'Apple IIGS qui est 
livrd d'origine avec deux logicieis, GS-Write et GS-Paint en 
plus de son sysi&me d'exploitalion. Que n'esl-U Iivr6 avec 
AppleWorks ! 

II y a encore les pessimisies qui craignent que la decision 
d'Apple ne ddcourage, plus qu'elle n'encourage les 
ddveloppeurs de logicieis, surtout pour le Macintosh. Si 
Apple se met k lout faire, disent-ils, et surtout si la firme 
vend des packages logic iel+mat<5riel, cela peut ^liminer des 
ddveloppements extdrieurs et meme des ddveloppeurs. Tiens 
done 1 Voil^ un avis qui ne peut pas 6viier de faue penser 
auGS. 
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Et puis il y a ceux qui ne voient pas, dans lout cela, de quoi 
fouetier un chat Tel est notammeni le cas d'Andrew Singer, 
de la soci£t£ Radius, & qui nous laisserons le dernier mot. II 
a imperturbablement dficlar^ aprfes avoir lu le journal : 
«Cette annonce sera tout juste bonne ^ envelopper des resles 
de poisscms d'ici quelques semaines.,.» a aussi le m(Srite 
de rappeler que la CaliTomie csl au bord de la mer, 

...et d AppleWorks 

Un mois apr&s I'annonce selon laquelle Oaris reslerait chcz 
Apple sa maison-mSre, est venue I'incroyable nouvellc : 
Claris a acquit les droits d'une version Macintosh 
d'AppleWorics ! Version qui sera calqufe sur Applewortcs- 
GS el qui en comprendra la pluparl des modules. 
Appieworks-Mac doil Stte disponible d'ici un an environ. 

La guerre des applications intSgrfies est-elle dficlench^e ? 
Malgr6 le (lot de questions et d' interrogations qui a coul^, 
on s'est refuse ^ tout commentaire chez Apple. J'en feral 
done auianL 



Actuel 



En attendant I'expo 

Les dates soni connues mais on peut loujours les rappeler : 
AppleExpo, septifeme Edition du nom, se liendia du mercredi 
19 au samedi 22 seplembre prochain au CNIT. de La 
Defense. Heures d'ouverture : de 10 & 19 heures sans 
interruption, lous les jours de Texpo. 

Celle annfe, on force un peu sur la pub. On a mSme sorti 
un nouveau sigle doni la contraction au niveau du 
vocabulaire ("AppleExpo") s'abrite sous des courbcs 
harmonieuses joignani la voiite stylisde du CNIT aux 
rondeurs du haul de la cfil6bre pomme. . . Pas mal du tout ! II 
faut savoir que I'expo 1990 est importante pour Apple. Les 
(Svfinements qui sc sonl passes rficemmenl dans le monde de 
la micro — el meme dans le monde Apple loul couri — sont 
pour en tdmoigner. Plusieurs nouveauL^s seront 
ddvoilfies, probablemenl sur les configurations Macintosh, 
mais aussi S propos de pfiriphfiriques comme les CD-Rom 
ou les imprimantes laser don[ le prix a beaucoup baissd. Le 
GS ne sera surement pas en reste. 

Mais r6v6nemem devrait 6tre ct66 par la presentation du 
micro-domesiique version Apple, dont le prix ne doil pas 
ddpasser les 1 000 dollars clavier en mains chez les 
revendeurs amiricains. Tout le monde allend avec 
impatience la riposte d'Apple aux modules PS/1 d'IBM. Big 
Blue a d6ja soni sa gamme domestique en juin dernier et se 
prepare, selon certaines rumeurs, une grande campagne 
publicilaire cet automne. Les deux constructeurs devraicni 
done s'affronter dfes celle renirfie afin de profiler au 
maximum des ventes de fin d'annfie. II est prouvd qu'un 



importani contingent (pour ne pas dire le plus important 
contingent) de micro-ordinaieurs est achete par les 
paniculiers au moment de NoCl. 

AppleExpo, ce sera aussi la presence de prfes de 200 
exposants sur une surface d'environ 30 000 mfetres carrds. A. 
litre indicatif, ceiie surface n'atieignail pas 20 000 mfctres 
carrfes Pan dernier. Cinquante pour cent de plus, done... 
Presque tous les secteurs de la micro-informatique seront 
prfisenls : Education, PAO, DAO, CAO. gestion, bases de 
donnas, ouiils divers, rfeseaux, tdldcommunications, etc. 
Parallfelement & I'expo, une vingiaine de conferences 
(gratuites) sont annoncdes sur des sujels irfes divers comme 
le systfeme Unix, la connexion au R.N.I.S. (RSseau 
Numfirique ^ Integration de Services), Apple et I'education, 
HyperCard... et surtout I'offre rfeseau d'Apple. Parmi les 
conferenciers on a notammeni annonce MichaCl Spindler, 
ancien responsable d' Apple-Europe, qui vient de remplacer 
Jean-Louis Gassee S I'Siai-major de Cupertino, 

Rappelons au sujet des reseaux que le nouveau syslSme 
d'exploitation du GS, GS/OS version 5, est le premier pour 
ta gamme D it offrir un accte integre au syst6me de partage 
de ressources Appleialk. II est done sflr qu'Apple va encore 
etendre son offre r^seau. Le GS devient le premier module de 
la gamme II k pouvoir panager des ressources sans option 
logicielle suppiemeniaire et cela est important. 

Quoiqu'il en soil, amis applemaniaques, venez monirer ^ 
Apple que vous fetes concemes, m2me si toutcs les demiSres 
nouveautes ne vous touchent pas dans I'immediat. Voire 

presence ^ AppleExpo et I'interet que vous manifesterez 
pour le IIGS devraient prouver ^ une firme que, non 
seulement elle ne doit pas oublier un modSIe d'ordinateur 
qui a fail sa gloire. mais aussi qu'elle ne doit pas deiaissa* 
ceux qui I'avaieni achete, meme si ceue firme affiche une 
tendance un peu trop marqude h vous pousser vers ses 
demiers modfeles, ^ programmer avec une bolie ii ouiils et S 
iravailler avec une souris. 

Un accueil paniculier sera reserve, selon Apple, aux 
developpeurs mais rien n'a filtre sur les modalites de cet 
accueil particulier. Toujours selon Apple, une salle de 
formation sera k la disposition des visiieurs qui pourront 
s'initier aux nombreux logiciels qui seront disponibles en 
demonstration. Autre annonce : la tenue d'un stand 
d'information sur le service que la firme veut apporler aux 
utilisateurs de ses machines. Enfin, comme les anndes 
passees, on trouvera encore la boutique des goodies et, sans 
doLte, les indviiables pommcs dont la consommation, I'an 
dernier, avail aiteint plusieurs tonnes ! 

Si vous venez en voilure, le pairing central de La Defense 
vous est conseilie. Par le R.E.R, c'est la sortie B vers le 
parvis qui vous est recommandde. Delicate attention d'Apple 
qui a pense aux provinciaux ; des reductions sont possibles 
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pour ceux qui prennent le train (30 %) ou I'avitHi (20 %) 
gnice k un "fichct" k demandcr k I'agence de voyage ou S la 
SNCF et qu'il faul faire tamponner, dts son arrivfe. au 
commissariat g£n£ral d'AppleExpo. Le bdn^Gce de la 
riduciion sera alors appUqud en prfiseniani le fichei dumem 
rempli au conlr61e des billets lors du voyage retour. . . 



Les risques de la productivity 

Paul Pinella, le distingu^ rSdacteur en ctief du GS Buyer's 
Guide am€ricain vieni de piquer une peliie colfere. Bien qu'il 
se dfifende de voir le c6t6 nfigatif des choses concemant 
I'Apple II, il admet sa frustration face ^ la p£nurie de 
nouveaut£s pour le GS. Dans son dernier &lilorial, il n'a pu 
s'emp&her de publier in-extenso la copie d'une lettre qu'il a 
re^ue et qui ^laii adressfie k John Sculley en personne. Elle 
£inane d'un Apple User Group am^ricain et monlre bien 
I'incertiiude et I'angoisse qui ^treigneni nos amis d'outre- 
Allantique quand il est question du GS. Je vous en livre ci- 
dessous la traduction, tout en remerciant la gentille 
intervention de Carol Macombcr au niveau de t'adaplaljon 
des inevitables americanismes. 

"Cher M. ScuUey, 

«Nous sommes membres du IIGS Special Interest 
Group de la Maryland Apple Corporation, un User-Group 
basi d Baltimore (Maryland). Depuis I'an dernier, nous 
avons eu beaucoup de discussions sur I'itat de la gamme 
Apple II. Les plus recenles onl parte sur la disponibilit^ de 
logiciels pour le GS. 

"Nous admetlons avoir vu la sariie <£ une variiti 
de jeux et de produits iducaiifs. Touiefois notre groupe 
comprend des adultes qui souhaiteraient lirer davaniage de 
leur inveslissement qu'un divertissement ilectronique. 
Beaucoup d'enire nous soni tres concernis etfrustris par la 
quasi-absence de nouveaux litres de productivity pour le 
GS. De plus, bien des annonces promises en 1987 se 
languisseni d Viiat d'abandon. Des programmes comme 
Draw-Plus, Show-Off. Music Construction Set et d'aulres 
n'onl regu d' attentions que la correction de queiques bugs. 

'Nous constatons que les logiciels sont produits 
par des maisons ind^pendantes et non par Apple Computer 
Inc. Nous ne blamons pas enti^remem cet aspect acluel des 
affaires. Toutefois nous voulons croire que voire sociiti. 
dans tout cela, occupe par sa nature mime, une position de 
leader el, de ce fail, constilue un modite. L' impression 
aciuelle est que vous avez abandonn^ le GS. 

"Que ceiie image desserve ou non, il est temps 
pour Apple Computer de s'assumer elle-meme. Cela 
reqtiiert davaniage que queiques mots bien formulas dans un 
discours. Cela va n4cessiter d' 4videntes initiatives. 



»Un regard occasionnel sur tout piriodique 
Macintosh rivile un nombre abondant de nauveautis ou de 
produits mis d jour, lis sont publics par des sociitis qui, 
sans doute, ont la possibility d'^crire une version de leurs 
titres spicifique pour le GS. Nous vous invitons d les 
encourager d mettre leurs ressources dans des 
diveloppements pour le GS. La version aciuelle de son 
systime d' exploitation est assez puissante pour supporter 
des applications qui n'itaient pas envisageables jusqu'ici. 
En outre, plus d'un million de GS ont iti vendus depuis sa 
sortie. II est temps d' avoir une initiative de haul niveau. 

«Nous sommes stirs que ce sujet est "vieux jeu" 
en ce moment. Nous avons entendu tout ceci pris 
d'idiieurs avisos de publications Apple. Nous espirons 
qu' un appel d utilisateurs sinceres vous portera impression. 
Une riponse rapide sur ce qui nous concerne serait 
appriciie. 

'Si la prisente tendance continue, nous pouvons 
nous atlendre a voir la mort fonciionnelle du GS el, avec 
elle, celle d'un inveslissement en temps, en argent, en 
inergie et en vision de beaucoup de monde. 

Sincirement.t 

IIGS - S.I.G. Maryland Apple Corp. 

Baltimore (Maryland) 

Cette lettre appelle deux remarques principales : pour nos 
amis amdricains. il semblerail qu'Apple considfere le GS 
comme une machine de divertissement. En raison de sa 
p6n6tration dans les entreprises, le Macintosh aurait 
davancage I'allure d'un instrument de travail. Or. lout le 
monde sail, sauf peut §tre Apple, que le GS est apte k 
iravailler en entreprise. Bien des choses peuvent d^ja Stre 
faites avec AppIeworks classic, encore plus de choses avec 
Appleworks-GS et il ne manque que queiques logiciels un 
pcu plus sp^cifiques. une comptabilit£ ou une paye par 
exemple. 

Le ton qui se ddgage de celtc lettre est celui d' utilisateurs qui 
espSrenl tou jours d'Apple mais se dfisolent face k I'inertie de 
la firme. Les grades de Cupertino se seraient-ils endormis 
sur leurs lauriers ? A leur place je prendrais tr^s au sdrieux 
la menace de certains d'aller voir ailleurs. Plus encore 
qu'une entreprise, un particulier est tr&s attentif k ce qu'il 
d^pcnse en mati^re de micro. Je doule, au vu des prix, que 
certains accepteni de passer d'un seul coup du GS au Mac 
Ilfx. El d'abord, (a leur apporterait quoi ? 

Et en France ? 

Paradoxalemenl, le GS ne se porte pas si mal que 5a en 
France, merci pour lui. Sa rdcente refonte et sa parfaiie 
adaptation au nouveau syst&me d'exploitation GS/OS 
version 5 en font une excellente machine. L' installation 
d'un disque dur est vivement recommandfie pour tirer tout le 
parti du fonciionnemcni en mode 16 bits. Bien sur, si on se 
contente du mode 8 bits, on peut faire fonctionner le GS k 
la maniSre des modfeles lie ou lie et se contenter de 
disqueites 3 pouces et demi, mais 1^ n'esi pas la vraie 
vocation de ce mode sur le GS. Ni celui des logiciels 
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sp6ciflques GS qui sont sortis jusqu'ici. Le mode 8 bils a 
€i6 instaU6 pour ne pas diSrouter les uiilisateurs de I'ancienne 
gamme Apple II, les autoriser k conserver leur acquit 
logiciel et leur permeure de passer progressivemeni au mode 
16 bits, celui qui est le plus rfipandu acluellement dans le 
monde de la micro. En attendant probablement. un jour, le 
mode 32 bits... 
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Les uiilisateurs amdricains seraient-ils trop ailentisles ? 
Quand on sait que Ton trouve encore dans certaines revues 
publi^es am Etats-Unis des descriptions de programmes 
fonclionnant en DOS 3.3, et cela prfes de quatre ans aprSs la 
sortie du GS, on ne peul pas ne pas Stre un peu 6tonnd. 
Quand on lit dans des revues cSlfebres comme Nibble que le 
DOS 3.3 «...est encore un systfeme d'exploitalion simple el 
sur lequel on peut compter...», on ne peul s'empScher de 
penser qu'ii y a un effort h faire quelque pari. La question est 
de savoir oii. 

Comme des vagues 
sur une plage 

II est toujours intfiressant de lire le courrier des lecteurs de 
certaines revues amfiricaines. T^moin ceile leore, re^uc et 
publi6e par InfoWorld, fusUgeant les fabricants de clones de 
qui-vous-savez vendus h bas prix. Pour le lecleur qui I'a 

f^!|^; Urn M |en§ (y E8inpri§ lnhinlms) 9nt fait I'm^s 

d'acheter un micro le moins cher possible, ignorant qu'en 
vendant du matdriel k bas prix, les fiimes qui les vendenl (el 
done les fabriquent) n'oni aucune possibility de dfigager un 
budget pour la recherche et le dfivcloppement en raison de la 
faiblesse de leurs b^nSfices. El de constater que les micros 
vendus par Apple, Macintosh compris, n'oni pas forc^meni 
un prix exagfir^, 11 ajoute qu'il est probable que si Apple 
avail vendu ses modules II 4 faibie prix, jamais la firme 
n'aurait d£gag£ les fonds lui ayanl servi g se ddvelopper et, 
entre autres choses, k sorlir le Mac. 

Les compagnies comme Apple ne vcndeni pas ^ bas prix. 
Mais il est probable qu'elles raisonnent ^ long terme. C'esl 
done un gage de coniinuitfi dans le matfiriel et une esp6ce de 
s&uritfi pour I'acheteur. Pour ce lecleur, les fabricants de 
cI6nes apparaissent, font quelques affaires et disparaissenl 
vous laissani dans I'ennui, avec un materiel qui n'aura pas 
d'ivolution, plus aucune vaieur ei parfois u&s peu de 
maintenance. Ce va-el-vieni lui a inspird une Irfes 
symbolique analogic : les vagues sur la plage dont chacune 
arrive, balaie une frange de I'estran, se retire et laisse la 
placed la suivante... 

Morality : ne cherchez pas voire micro parmi les modules 
les moins chers. MSme si vous n'eies pas cerlams d'oblenir 
la plus haute qualit6, vous serez sur qu'il fonctionnera 
pendant des ann6es parce que vous aurez ddj& avanc^ les 
fonds pour payer les gens qui seronl charges de la 
maintenance, ainsi que du travail sur les Evolutions que 
vous files en droit d'atlendre. . . 



Materiel 



Dans le GS, le Mac 

L' Apple IKS est un merveilleux ordinateur. Sous un boitier 
de dimensions r6duites, la puissance qu'il rec&le est 
extraordinaire. 11 pourrail Sire encore plus puissant, allcr 
beaucoup plus vile et faire davantage de choses si on le 
voulail bien k Cupertino. II pr6sente une sorte de synthfese 
des deux gammes de la firme califomienne : Apple 11 el 
Macintosh. Dc I'Apple II il a conservd le principe de 
fonctionnemeni. la compatibilild compl6ie, la philosophic 
et meme la possibility de travailler en 40 colonnes ! Du 
Macintosh il apporte le tableau de bord. la boite & outils, la 
souris, un systfeme d'exploilation avec finder, le graphisme, 
lesp^riphyriques... 

Mais il ne peut pas gtre complfetement Mac car il n"a pas le 
microprocesseur du Mac. Et s'il n'esl pas complkemenl 
Mac, il ne peut pas faire marcher les logiciels du Mac. Qu'S 
cela ne denne, s'est-on dit chez Cirtech, s'il n'a pas le 
micrt^rocesseur du Mac, on va lui en donner un ! 

C'esl ainsi qu'est a& Duet la demi&re nouveautd que nous 
sort eel habile constructeur fcossais. Duel est une carte qui 
s'enfiche dans un slot du GS. Sur ceue carte on trouve un 
microprocesseur MC68020 (les Mac onl un 68030) cadcnc^ 
il 16 Mhz (comme les Mac Ilex et Portable), une Rom el un 
mfiga de RAM extensible k hull m6gas. On y Uouve 
ggalemeni un support pour un coprocesseur ariihmdiique 
MC68882. Comme les p6riph5riques du GS (clavier, souris, 
drives...) sont les mfimes que ceux du Mac, iis sont done 
reconnus de fagon loialemeni uansparenle el il n'y a pas de 
problfemes pour que le GS fasse toumer les logiciels Mac, la 
couleur en plus... 

Comme si cela ne suffisait pas, Cirtech est all6 jusqu'S 
synchroniser les operations entre le 68020 de la carte el le 
65816 du GS. Ce dernier esl utitisfi pour g^rer les enu^es- 
sorties, libdranl le 68020 pour d'autres laches. Or, dans un 
Mac normal, le processeur doit gdrer lui-m2me I'essentiel 
des entrdes-sorties. ce qui diminue ses performances 
d'ensemble. Si bien que Cirtech n'est pas peu fier 
d'annoncer que le GS fiquipe du Duet esl plus rapide que le 
Macintosh Ilex ! 

Voici done le GS, machine unique au monde, compatible 
avec tout le monde, en passe de r&oncilier tout le monde ! 
II peut maintenant supporter la plupart des syst&mes 
d'exploiiaUon exislants : DOS 3.3, ProDOS 8, ProDOS 
16, CP/M, Pascal, MS-DOS (et les variantes) el le systfeme 
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du Mac. Ces 6normes possibilil^s lut ouvrent dSsomiais 
I'atxfes k la plus vaste logiihSque pour micros qu'on putsse 
tmaginer, puisqu'il peul praliquemenl [oui faire toumer ! 
Qu'en sera-t-il lorsque soitira enfln le fameux Sysiem 7 
pr€vu pour le Mac, doni des versions de prddiffusion 
lournent d€jS chez des utilisateurs-lype qu'AppIe a 
soigneusement sfilecUonnds ? Qu'en sera-i-il encwe lorsque 
Apple se mettra k diffuser son ofTre Unix ? Verra-l-on, un 
jour, des GS multi-postes ? 

Le Duel sera diffusfi en France par Toolbox vers la fin de 
cette ann£e selon les annonces failcs. On n'en connail pas 
encore le prix mais la comparaison entre un Macintosh 
modulaire et le DCS 6quip^ du Duel va suremeni donner lieu 
k bien des sp6culations. 

We soufflez plus 

Grand ^v&iement dans le monde de la micro standardise el 
cIdnSe : un fabricant (Faico) vieni de lancer un micro- 
ordinaieur qui n'a pas de veniilateur inleme ! C'esl une trfes 
s^euse revue am^ricaine qui n'h^iie pas ^ ^ faire un titte 
important el k parler d'cxemple. Quand on connait certains 
marchds. on sait d'avance que ce qui est fail par i'un est 
rapidement imitfi par les autres. A I'heure ofi des 
bidouilleurs cssaieni de metire un ventilateur dans leur He 
ou leur GS pour refroidir des elements insuffisammenl 
dimensionnds par les fabncants. d'autres conslructeurs 
s'effonxni de supprimer cet accessoire ! 

Pauvre querelle. Jc me suis toujours demands si un 
ventilateur avait une justification, sur un micro-ordinateur, 
autre que celle de faire un certain bruii rappelani que 
I'appareil est en marche. Je reste persuadd qu'un 
dimensionnement s^rieux de cenaines pi^es, surtout au 
niveau de I'alinientation el notammeni des rfigulateurs, alli£ 
k des radiateurs de rcfroidissement dc bonne surface 
permettiait la suppression pure et simple du ventilateur. 
Rappeions-nous nos bons vieux modMes II. ll, plus 
r&emment du GS qui est livrd d'origine sans ventilateur. ^a 
ne les empfiche pas de marcher corrcctement ei de se montrer 
increvables k I'usage. 

Des m^gas, encore des mSgas 

II est des choscs donl on finit par se demander si eUcs valcnt 
la peine d'etfe dites. Dans le demier numdro de Pom's, j'ai 
abondammcnl parl^ de disque dur et essayd de vous faire 
partager mon enihousiasme pour un lei ptSriphdrique sur le 
GS. C'esl vrai qu'un disque dur sur GS, c'est un rdgal. La 
machine Irouvc une dimension de travail et d'efficacitd 
dtonnante el atteint un niveau irfes au-dessus de la pr&ence 
de plusieurs lecteurs de disqucties. Meme avec un disque dur 
de capacild relativemcnt modeste. 



Or, voici arriver un flot de documentation, probablemenl k 
la suite du Comdex qui a eu lieu k Atlanta au mois de juin 
demier. On y fait 6tai de capacitds de stockage aOeignant des 
chiffres vertigineux pour les disques durs. Mais ce qui a 
retenu mon attention, c'est Tannonce de la possibility de 
meitre 20 mdgas sur une simple disquette 3,5", celle 
prdfdrde par nos GS. Qui mieux est, les lecteurs de ces 
disquelles assez sp^ciales seraient compatibles avec les 
disqueoes 3,5" d6j^ exisiantes et pourtaient les traiter sans 
problfeme. Un lei lecleur existe. un fabricant en a presents 
un au Comdex. 

Que penser de lelles annonces ? Pour ma pan, loin des 
salons et des expositions, je prdfSre m'en tenir aux choses 
existant d&jk chez les vendeurs (ou revendeurs) fran^ais et 
m'dquiper de matfiriel, peul-2ue pas hi-ieck mais qui 
fonctionne, preuves k I'appui. Je serai sur de travailler sans 
fonctionne, preuves k I'appui. Jc serai sur de iravalller sans 
ddboires. Les caractdrisliques internes de mon disque dur 
retiennent mon attention principalement au moment du 
choix. Comme bien des utilisateurs, je les oublie un peu 
ensuiie, Sa capacity, m6me si elle demeure modeste face aux 
modules qui soneni en ce moment chez les fabricants est 
adaptde k mes besoins. Je con^ois parfaiiement que des 
ndcessilds d'espace disque s'exprimant en giga-octets 
existent et doivent trouver des solutions adaptdes mais il ne 
faut pas me raconter qu'elles sont pour moi, afin de siocker 
mes modestes fichiers. ou 20 mdgas suffisent, inutile de 
prdvoir un disque durde 160m6gas. 



Erratum 

Le corps non-commutatif des quaternions nous a 
perturbe... Dans Pom's 48 page 7, il fallait lire, 
conccmant I'AppIe matheux : 

"En multipliant k gauche chaque membre de 
I'equalion par (a.b - l)- i qui vaut (a.i> - 

1) Vdoii d = ia.b -D*. (a.b - 1) » 

Dans les programmes 2 et 3, en REM des lignes 
100, il fallait lire C=.„ au lieu de X=„ 



Que penser encore de telles capacitds sur des disquettes ? Les 
fabfi^Sfits, Ir^diLioniiellemcnl pressds d'annoncer des 
exclusiviids sortant de leurs laboratoires taiseni souvent un 
ou deux points. Dans le cas prdsenl, on se garde bien de 
rappcler la lenieur d'une disquette par rapport k un disque 
dur. Lenteur se traduisant toujours, et avant lout, par le fait 
qu'un disque dur toume en permanence, pas tme disquette. 

Et cela veul dire, 6nalement, deux choses, une bonne el une 
moins bonne. La bonne en premier : de grosses capacilds 
sur des disquettes seroni int£ressantes pour un usage 
important, faire des sauvegardes du disque dur. 11 sera 
pratique de pouvoir sauvegarder un disque dur entier de 
20 mdgas sur une seule disquette. Et 1^. le simple ulilisateur 
que je suis pent Stre intSressS. II ne sera pas lellement 
pratique — pour la moins bonne remarque — de travailler en 
mode 20 mdgas avec une telle disquette en raison des temps 
d'accfes oii la rapiditd appariiendra toujours k un disque dur. 



La conclusion ae fait que confoiter une habitude depuis 
longtemps ^tablie : la disquette pour la diffusion de 
logiciels, les installations, les copies, les archivages, les 
iransfens, les sauvegardes. . . Le disque dur pour le travail. II 
est encore temps d'en acheter, les prix tendant h se stabiliser 
(ce qui signifle une baisse, en francs constants) et les 
modules k se multiplier. 



Logiciel 



Caract^res sp^ciaux 

Un fait international : la France n'est pas le seul pays oii 
certains ulilisaleurs d'AppleWorks butent sur le problfeme 
des caractferes dits sp^ciaux. Un cas, lypique en Angleterre, 
consisie k faire remarquer que le symbole reprfisentant la 
livre sterling £ existe sur le clavier, mais la difese s'affiche 
infivitablement i sa place, k I'&ran ou k Timpression ! 



Caractdres nouveaux 

Les disquettes de police vendues par Pom's contiennenl 
quaniii6 de styles et de dimensions et parmi tout cela chacun 
devrait trouver ce qui lui convient. Mais il reste ceux qui ne 
veulent pas des caractSres des autres, ceux qui veulent faire 
leur propre police (!), ceux qui veulent 6crire en grec. en 
h^breu, en code, en hiSroglyphes... Pour ceux \k, il n'y a 
qu'un programme : Fontasm. 

Ce programme ne toume que sur OS en mode 16 bits et est 
v^rilablement une petite merveille. II pennei la cr^tion de 
polices allant jusqu'^ 256 carBCt&res avec une pr&:ision qui 
n'est pas sans rappeler la "loupe" de GS-PainL En fait, il 
pKnnel d'intervenir sur toutes les polices exisiantes. C'esI 
v^rilablement la solution pour qui veut construire ses 
propres caracl&res ou modifier, k son gout, un jeu existani. 



Le traiiement de texte d'AppleWorks est rest6 assez 
simpli&S en ce qui conceme les caract&res plus ou moins 
exoliques. Sans doutc il cause de la limitation de la m^moire 
de I'Apple TI au temps oil ce roi des logiciels fut confu. II 
ne faut done pas SCre £tonn£ de rencontrer des uttlisateurs un 
peu irop vite convaincus qu'AppleWorks est incurable k cc 
niveau et qui sent alids chcrcher rcmfede dans des logiciels 
qui se disent sp&:ifiques. Logiciels qui leur ont caus£ (ou 
leur causensnt) des di t^cultds dans d'autres domaines. 

Et pourtant... 

Ft pourtant il y en a qui vont sourire en lisant ce que je 
viens d'&rirc. Passe encore pour le changement de clavier 
ou d'affichage via le tableau de bord sur le CS, pour les 
caract&res propres k certains pays. Passe encore pour 
I'utilisation du Clavier Men temp^rfi. La vraie solution 
s'appelle tout simplement SuperFonts. Ce module TimeOut 
qui se grefTe sur AppleWorks rend d'inestimables services k 
ceux qui veulent imprimer des caractferes sortant de 
I'ordinaire ou des symboles spdclSques dans un texte 
banalemeni frangais. Vous avez une ihfese k rddiger ? Un 
article scientifique ? Vous voulez fcrire k la fois en baton et 
en italique, ne fut-ce qu'un seul mot au milieu d'une 
phrase ? Vous voulez changer de police pour un seul mot, 
pour une seule leltre ? Ne vous cassez plus la tSte, 
SuperFonts fait tout cela. 

Et si vous optez pour ce TimeOut, je vous encourage k le 
completer par quelques disquettes de polices qui feront voire 
bonheur. Et, ulidrieurement (mais 5a n'empcche pas de le 
faire en meme temps), par le TimeOut Paint qui vous 
permetira de mixer texte et graphique dans un seul 
document. 



Force de caractdre 

Pour qui possfide AppleWorks classic comme disent les 
am^ricains (entendez par la les versions jusqu'l la 3.0), le 
TimeOut SuperFonts reprfisente le nec plus ultra en mati&re 
d'impression hors de ce qui existe en standard dans 
AppleWorks. Combing avec Paint et, si vous poss6dcz un 
GS, avec Fontasm, franchcment je ne vols pas quoi ajouter 
pour completer la panoplle qui produit des imprimis sortant 
de la banalitd. Voire meme avoir une idte plus precise de ce 
que d'aucun baptisent un peu vite P.A.O. Terme qui a 6t6 
tenement galvaudfi que j'dvite autant que possible de 
I'uliliser. 

Tout cela me donne meme V'ldie d'un petit concours : celui 
de la page de texte la mieux prfsentde par I'utilisation des 
logiciels que j'ai citds. Le meilleur sera public, plusieurs 
prix seront distribuds. 

SuperFonts est-il Wysiwyg ? 

Wysiwyg, ce n'est pas un gros mot. Ne le cherchez pas non 
plus dans votre dictionnaire anglais- fran^ais. C'est tout 
simplement I'acmyme de What You See Is What You Gel, 
ce qui, en fran^ais, signifie littdralement : ce que vous 
voyez est ce que vous oblenez ou mieux : tel icran, tel 
icrit. De nombreux traitemenls de texte s'enorgueillissent 
d'gu^e Wysiwyg sous prdtexte qu'ils offrent la possibiliid de 
voir k I'ficran ce qui soriira k Timprimante. Si on s'en tient 
k cette definition du Wysiwyg, alors SuperFonts est 
Wysiwyg I 

II est, en cffet, tout k fait possible gi^ce k ce TimeOut 
d'afficher k I'dcran le document en preparation avani de 
I'imprimer. Cet affichage se fait avec les polices qui seront 
utilisdes pendant I'impression, y compris avec les atiributs 
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ajout^s : relief, ombrage, soulignemenl, changemem de 
page ou de marge, etc. C'est i'image exacie de ce qui sera 
imprim^. Alors si vous voulez fconomiserdu papier... 



Programmation 



Une, deux... RUN ! 

La c6lfebre revue amfiricaine Nibble poss^de une rubrique 
One and Two Lines Programs. Elle a pour but de publier les 
meilleurs programmes rfialisds en Basic AppleSoft et ne 
comportant obligatoirement qu'une ou deux Hgnes. A en 
jugcr par ce qui esi public, la rubrique semble connaTire une 
certaine participation (ei m5me une participation ccnaine !) 
de la part des lecteurs qui ne se priveni pas d'envoyer leurs 
productions. 

A votre intention, j'ai s^lectionnfi deux programmes dans 
Nibble. Le premier, paru sous la signature de Ben Houston, 
fait deux lignes et trouvera sa pleine utilisation le 14 juillet 
prochain ou Ic soir dc votre anniversaire. Faiies-lc loumer de 
prSKrence sur un GS en mode rapide el dol6 d'un moniteiu^ 
couleurs. Dans ce programme, il faul remarquer I'habilel^ du 
programmeur qui rfiussit 4 remplacer un GOTO par une 
boucle comportant 9E9 (9 suivi de 9 zdros) iterations ! La 
boucle est done prfivue pour se rSpfiier neuf milliards de 
fois... Nul doute que Ben Houston est alld h \'&cq\c de la 
struciuration. Voici ce programme : 

1 DIM XI (405) : HGR : FOR A = 1 TO 9E9: RESTORE 
:B = 0:H = RND (1> ' 179 + 50:V = RND (11 
' 89 20: FOR I = 1 TO 3: READ R(Il,CtI), 
D(l) ,E(J) :Y(J) = 0; NEXT ; FOR G - TO 32 
STEP .5: FOR I = J TO 3:A(I> = Ad) f .0005: 
HCOLOR^ 3:X = C(I) ' (1 * SIN ((Atl) - 75) 

/ Ad) t ) :y(I) ^ Yd) + Ddi :S% ^ 189 - X - 

IV - Ed)) 

2 HPLOT H + Yd), St: HPLOT H - Y(I),S%:X1{B) 
- Yd):B - B + 1:X1(B) - Si:B - fi + J: NEXT 

I,G:R = 8: FOR C = 1 TO 3: FOR I = TO 4 00 
STEP R: HCOLOR= 0: HPLOT H - XKD.XIU * 
II : HPLOT H + XI (II, XI (I * H : NEXT :R = R / 
2s NEXT C,A: DATA 1 . 1, 32, . 25, 14, , 998,23, . 5 
, 6, 1.0815,28. .5. 

NDLR : on remarque que la ligne se termine par une 
virgule, la variable zBro s'installera id par defaul. 

Le second programme, ccuvre de Richard MacMillan, ne fail 
qu'une ligne el est un de ces peekers dont on est si friand 
outre-adaniique. Tout modesie qu'il soit, il pcui se rSvi^lcr 
utile pour examiner la miSmoire sans trop periurber son 
contenu : 



I HOME .■ PRINT CHRS I21);:HS = "0123456789ABC 
DEF": INPUT "Start Address: "iS: INPUT -End 
Address: ",-Ei FOR I ^ S TO E:L - PEEK 

(I):L$ = STR$ (L):B ' INT (L / 16):BS = 
MID$ (HS.B *■ l,ll:C$ = MIDS (HS, INT (L - 
1€ • B + 1),1): PRINT I" - " TAB( 12 - LEN 

(L$))L$" = $"BSC$: get AS: NEXT 

Quelques conseils pour entrer ces programmes au clavier : 
Ne jamais taper les espaces. Taper, par cxemple : 

FORI^1T03 :PRINT"Bon jour ••: NEXT 

el non : 

FOR 1=1 to 3 :PRINT "Banjour" : NEXT 

sauf si ces espaces apparaissent dans une chaine entre 
apostrophes, dans un rem ou dans un data. Vous gagnerez 
^galement de la place en substiiuani le point d'interrogaiion 

? k PRINT. 

Demifere remarque, au cas oii vous ne voudriez pas vous 
faliguer, ces programmes soni dans le sous-catalogue 
Applemania de la disquetle d'accompagnement de ce 
numfiro... 

Et nous... 

Ces programmes One Two Lines devraienl probablemeni 
inldresser des lecteurs de Pom's. Qu'on ne s'y irompe pas, 
faire un programme OTL n'est pas aussi facile qu'il y parait 
a premi&re vue. Cela n&essite ddjJi une cenaine approche de 
la programmation struciurSe, cel&bre pour ses bouclcs 
fermSes et imbriqufcs ! Tani que nous y sommes, pourquoi 
ne pas nous y mettre nous aussi et monirer aux am^ricains 
qu'cn France nous avons des passionn^s Apple qui peuvent 
produire d'excellents OTL. Qa nous fera faire autre chose 
qued'ergoter surl'avenirdenoschSres machines ! 

Une technique qu'il seraii amusant d'exploiter seraii de 
rSaliser des programmes n'occupani qu'une ligne et qui 
toumeraieni direciemeni dans le buffer d'entrfc lui-meme. 
Attention, pour que la technique soil valable, le programme 
devrait obligatoiremeni subsisier dans ce mcme buffer 
d'enirSc... On arriverail alors h iniroduire un second 
programme Basic dont le role pourrait ctre, par exemple, de 
nous montrer ce que fail le premier... qui serait dans 
I'espace programme normal, Une espfece de MON et 
NOMON sous ProDOS ! 

Le challenge est ouverl b lous. Qui se montrera bon 
programmeur OTL ? Pom's auend vos envois. 



Quelques nouveautes 



GS, Vitesse et drivers 

La sociStS Vitesse est sur le point de diffuser une nouvelle 
carte paralldle pour noire cher GS, ainsi que des drivers 
d'imprimantes qui permetlroni d'dmulcr les DeskJet, 
DeskJet Plus, LaserJet, LaserJet IIP el la LaserJet III de 
Hewlett Packard. 
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Soni aussi priSvus des drivers capables d'£muler Les 
Epson PQ, rimageWriler (encore un !) et la Paintlel. Une 
aTfaire^suivre... 



Encore Vitesse ! 

Wings, lew nouveau launcher est d'un style \xhs parli- 
culier : on ptul toul faire avec ! Lire des fichlers Icxtes. 
ficouter un sample sonore, aciiver les Inits, CDAs, NDAs el 
drivers en din d'ceil, d^finir des lisies d' applications. Toutes 
les fonctions du Finder normal sonl accessibles, plus encore 
beaucoup d'autres... Un indispensable en mati&re de 
launcher. 



TML is Complete 



TML cfede tous les droits sur leurs softs GS S Vince 
Copper, directeur de Complete Technology. A cette 
occasion, les noms des logiciels bien connus vont changer 
par I'intermddiaire d'un upgrade. Bien siir, les noms ne 
seroni pas seuls k changer, puisque on va pouvoir voir 
quelqucs bugs disparaiire ei remplac6 par des am6lioraiions 
notables : plusieurs options nouvelles dans I'fiditcur dc 
ressources el un linker qui permei d'ajouier des morceaux de 
programme en assembleur ou toul autre langage compilfi en 
code de Complete Pascal. 

TML Basic devieni done Complete Basic et TML Pascal n. 
Complete Pascal. 

Tarifdes updates : 

✓ TML Pascal II, version normale 
TML Pascal II, LAB Pack 
TML Pascal II, Network version 
TML Pascal, ancienne version 
TML Basic, version normale 
TML Basic, LAB Pack 
TML Basic, Network version 



✓ 
✓ 
✓ 

✓ 
✓ 



29,95 S 
19.95 S 
79.95 $ 
59.95 S 
19,95 $ 
39,95 S 
59.95 S 




Pour obtenir un upgrade, il vous faudra fournir votre 
numSro de carte d'enregistremenl, voire adresse compl&te el 
le num^ro de votre cane bancaire. et envoyer le toul k 
Complete Technology (adresse en find'anicle). 



Des jeux 



Halls of Montezuma 

Dc strategic Studies Group. C'est un tr^s beau jeu de 
guerre (si je puis dire !). qui vous permeitra dc cr6er vos 
lerrains, routes el forSts. Placez vos troupes et... Attaquez ! 
Que le meilleur gagne. Halls of Montezuma est un 
inconioumable pour les sp6cialistes de wargames et aulres 
Jeux de strategies. Garanii d'actualit^ ! D'autres balailles 
c61tbres sonl en provision pour fin 90. 



BlockOut 

De California Dreams. Une sorte de version 3D de 
TCiris, avec de nombreuses options. Les difliculids sont 
modifiables k volonid (type de pi6ces, tallies...), les 
d6placement se font depuis le pavS numirique ou k la souris, 
les rotations au clavier. Une tris bonne perception de la 3D 
et des rotations est n&essaire pour jouer. Les fadas de T6tris 
appr^cierons beaucoup. 



APPLE EXPO DU 19 AU 22 SEPTEMBRE 1990 

Tout... tout... tout... Vous saurez tout 

sur I'Apple n 



CNIT - LA DEFENSE 
STAND1D6 



Venez nombreux assister aux 
presentations des dernieres nouveautes 
avec Jean-Marc et Beatrice Bresard 



BOUnQUE BREJOUX 

16 me d'Aguesseau 92100 Boulogne 
Tel. (1) 47.12.09,50 

Demonstrations permanentes 
Materiel et logiciels (travail et jeux) 
Exceptionnel: lOh - 12h30 / 13h30 -19h 



BREJ^UX^ 29 A me Montribloud 69009 LYON TeL 78.36.52.69 Fax. 78.25.50.84 
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Et encore... 



Nos ecrans rayonnent 

Dans une de ses dernifere Editions, noire confrfere 01- 
Informalique fail 6tat d'une information qui a largemeni 
circuit dans le monde de la micro ei selon laquelle les i^crans 
Apple ^mettraient plus de radiations que les autres ! Celle 
nouvelle s'est ripandue comme une iraJnSe de poudre el, 
parvenue S la Bourse de New- York, a meme provoqufi une 
baisse immfidiaiede Taction Apple. 

II est iargement connu que tous les ^rans cathodiques 
^metieni de faibles radiations. Cela est vrai aussi pour un 
banal poste de tdl£vision. On salt ^galement que les ^rans 
cathodiques peuvent provoquer des fatigues visuelies, des 
maux de tSie, du stress... choses qui ne sont pas nidcs par 
les consirucieurs et ont m5me suscild des thfcses de doctoral, 

L'origine de loute cette affaire ne scrait-cllc pas plutot ^ 
chercher dans la passion des Applemaniaques donl ccriains 
passent un temps appreciable devant le moniieur de Icur 
chere machine ? Les cdphalees et conjonciivites appleliennes 
qui en ont r&ultd chez quelques sujeis ont du induire en 
erreur quelques oculisies ou g^nfiralisles mal informds, 
tenants bomds des standards de la micro-informaiique clonde, 
qui se sont empresses de rdpandre un bruil sans aucun 
fondement. Bruit qui aurait did repris ensuite par un de ces 
groupuscules sdvissant dans les milieux boursiers et qui 
lancent dpisodiquement des rumeurs donl les retombdes 
visent surtout les maichds Gnanciers. 

Amis Applemaniaques, si le moniKur de voire micro vous 
fail mal aux yeux, pas de douie, vous I'avez mal posiiionnd 
ou vous vous posilionnez mal par rapport & lui. Vdrifiez 
qu'il ne prdsenle aucun reflel genant, que ses rdglages de 
contraste el de luminosilfi sonl corrects. Placez-vous h une 
distance suffisante de I'dcran. Ne posez pas voire moniieur 
devant une fcnfitre ei anangez-vous pour que I'ficlairage 
ambianl soil dquilibrd. Une tampe allumiSe ne doit pas eirc 
dans voire champ visucl lorsque vous rcgardez voire Scran. 
Si vous disposez d'un moniieur couleurs, vous pouvez 
dventuellement changer les couleurs de lexie et de fond. 
Enfin, si votre dcran scintille, si son image est ddformde, en 
lonneau, ou avec des leiires floues, s'il prfisenie des ddfauis 
de convergence ou de Tasiigmaiisme (surioui vers les 
coins), vous pouvez loujours le faire verifier ei/ou rdparer 
par voire revendeur. 

Et si au bout du compie, vous ave?. loujours mal aux yeux. 
assurez-vous que vous n'avez pas oublid vos lunettes ! Une 
passion mdrite bien un peu de confon. . . 



Un 4cran "clean" 

Une autre cause de I'inconfort visuel pcul eU"e la poussi&re 
qui ne manque pas de se coller ^ I'dcran du moniieur. D'ou 
un essuyage pdriodique avec un chiffon qui ne manque pas 
de connaitre une ceriaine saturation un jour oii I'auire. Si 
vous n'avez pas de femme de mdnage il voire disposition, 
vous pouvez recourir aux lingelies type Clean Plus 
disU'ibuSes par Colcom. C'esi une variante du rince-doigts 
modeme ou du mouchoir rafratchissant. Scclld dans une 
enveloppe, se irouve un camS de lissu synlhdlique imprdgnd 
d'un produit qui, selon la sociiSld dislributrice, neiloie, 
ddsinfecte et combal les microbes (mais pas les virus 
informaiiqucs). Toujours selon la sociiSld, la solution 
d'imprdgnalion du tissu, fabriqudc par un laboratoire phar- 
maceulique franjais, leader dans le domaine de I'ascpsie 
depuis 142 ans, rdpond aux normes Afnor en la maliferc. 
Dernier ddlail qui intfiressera les dames : la lingette n'aitaque 
pas le vemis S ongle. Ce produit est proposd en boTtes de 24 
lingettcs au prix public conseilld de 45 francs, 

L'effet de I'inexpSrience 

Jc dois presenter mes excuses pour avoir oublid de donner, 
dans mon prCcddeni article, les adresses des sociSlfis dont j'ai 
parld ou donnd rfiference. Comme en loutc chose, il faul un 
ddbut et comme en loul ddbut, quelques oublis ou erreurs 
sont difficiles S dviler. Vous trouverez ces adresses en fin de 
rubrique, en meme temps que celles sc rapporiant au prdsent 
article. 



Les grandes pensees 



A I'intirieur de chaque grand logiciel, U exisie un petit 
logiciel qui ne demande qu'd sortir. 

(Loi de Heare) 



Les adresses 



Amdahl France 

59, boulevard Cambetia- 92130 Issy-les-Moulineaux 
Apple-France 

12, avenue d'Oc&inie - Z.A. de Counaboeuf 
91956 Us Ulis Cedex 

Apple Computer, Inc. 

20525 Mariani avenue - Cupertino - CA 95014 - USA 
Itrejoux 

16, rue d'Aguesseau - 92100 Boulogne - (1) 47 12 09 50 
29, rue Montribloud - 69009 Lyon - 78 36 52 69 
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Cirtech 

Currie Road Industrial Estate - Galashiels - Selkirkshire 
TDI 2BP ^ Ecosse 

Claris 

5201 Patrick Henry drive - PO box 58168 - Santa Clara - 
CA 95052/8168 - USA 

Colcom International 

37, me des Acacias - 75017 Paris - (I) 47 54 90 17 
Falco Data Products 

440 Potrero Avenue - Sunnyvale - CA 94086-41 17 - USA 
Hooleon Corp. 

P.O. Box 230 - Page Spring Road - Cornville - AZ 86325 
USA 

IIGS Buyer's Guide 

5615 W. Cermak Road - Cicero - IL 60650-2290 - USA 

IIGS Special Interest Group 

Maryland Apple Corp. - PO Box 2353 - Baltimore 
MD 21203 - USA 



InfoWorld 

1060 Marsh Road. Suite C-200 - Menio Park 
CA 94025 - USA 

L.Martin-M^dical 

187, avenue F61tx Faure - 69003 Lyon 

Nibble 

52 Domino Drive - Concord - MA 01742 - USA 
Toolbox 

6, rue Henri Barbusse - 95100 Argenteuil - (1) 30 76 18 64 
6, Macintosh drive - Greenville - Rl 02828 - USA 

AFU-Unix 

1 1 . rue Camot - 94270 Le Kreralin-Biceire 

Complete Technology 

541 1 Ortega boulevard, suite 7, Jacksonville 

Florida 32210 -USA 

01-Inrormatique 

5. place du Colonel Fabien - 75491 Paris - (1) 42 40 22 01 



Sortez votre Minitel du placard ! 

StormTel Pom Link 3.1 



Stormlel est un logiciel serveur RTC 
Monovoic pour Apple // et IlGS. 

Con?u pour les personnes qui aiment 
profiter de leur micro mais dont le 
fonctionnement de leur machine n'a que 
peu d'interet, Stormtel apportera une 
aide precieuse aux amateur de 
communication bien con?ue. 

Stormlel possede deja plusieurs 
applications integrees dont la 
messagerie, les boites aux lettres, un 
composeur de pages Videotex, le 
message du jour et trois rubriques a 
personnaliser. 

Stormlel ne necessitera done pas de 
connaissances particulierement 
poussees en telematique ni d'experience 
dans I'utilisation des logiciels de 
communication. 

StormTel est livre avec le detecteur de 
sonnerie. 



Pom_Link 3.1 est un logiciel ssrveur 
RTC Monouoie pour Apple //, IIgs et 
Mac. 

Pom_Link 3.1 est plus coniju comme 
langage Basic tres ameliore, qui 

permettraasonacquereur de 
programmer un serveur tout a fait 
personnalise, susceptible d'enregistrer 
des messages et d'en diffuser d'autres 
qui pouront etre d'acces reserve grace a 
sa fonction "secret". 

Les librairies permettrons de mettre en 
ceuvre imagination de I'utilisateur 
grace a plus de quarante instructions 
ajoutees au Basic "normal". 

Ainsi, vous pourrez profiter pleinement 
de votre Minitel et de son mode 
Videotex, aussi bien que de votre 
precieuse machine, dont les possibilites 
sont parfois plus etendues que Ton ne 
crois. 



Pour recevoir une documenlalion sur ces deux applications, lelephonez-nous, laissez un message sur notre serveur ou utiiisez 
noire Fax. Pour commander, reportez-vous au bon de commarde en page 72. 
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Pom's Le Tarif 



Revues 

n' 8 4 n« 26, chacune 40,00 
n" 27 k n" 50, chacune 45,00 

Recueils Pom's 

Cesrecueils reg:roupent4 num^rosdelarevue. (RecueilS a 
8 epuise) 

Recueils n" 1 d 4, 9 d 12, chacun 140,00 

Cables communication 

Se reporter aux numeros 27, 28, 30, 31, 33 et 34 qui presen- 
tcnt les programmes de communication reliant oramateur 
et Minitel, Pr^ciser le ou les modules d'ordinateur. 



cable MInllel/ordlnateur 
cable Ordlnateur/ordinateur 



225,00 
225,00 



Rellures 

Pour la protection et le classement de 6 numeros de Pom's 
Rellure 75,00 

DIsquettes Pom's, Macintosh 

Ces disquettes regroupent I'ensemble des programmes 
fx>ur Macintosh d'une revue, + des programmes du domai- 
ne public, f>olices de caract^res, nouveaux systfemes, etc. 

3,5", de la n<' 16 d la n' 50, chacune B0,00 

Disquettes Pom's, Apple // 

Ces disquettes regroupent I'ensemble des programmes 
pour Apple // d'une revue. 

5,25" 140KO, de la n" 1 a la n" 50, chacune 80,00 
3,5" 800KO, de la n" 29 a la n" 50, chacune 80,00 

Disquettes Com. V1.0 

Ensemble de deux disquettes decrites dans 

Pom's n" 48. 100,00 

Shareware Apple // 

Presentees dans les n** 38, 39, 41, 42, 43, 44, 46, 47 & 50. 
DP A 001 A 039, 140 OU SOOKo, Chacune 80,00 
Pom's Art 1,2,3 au format Paint' 150,00 
Pom's Art 1 ,2,3 et 4 au lormat Publish It!, les 2 100,00 

• re pen vent etre vendues s^par^menl 

Polices de caracteres 

De type Macintosh, elles fonctionnent avec AppleWorks, 
SuperFonts, Publish it! et MultiScritje. Les polices 19 k 28 
sent disponibles uniquement sur dtsquette3,5 pouces. 

'Polices' 001 d 028, 140 ou 800KO, les deux 100,00 

Environ 30 polices sur les disquettes 001 a 018. 
Environ 100 polices sur les disquettes 019 S 028. 



Logiciels pour Apple // 

Ces logiciels sont accompagnes d'une documentation 
fran<;aise. Tarif Joker* Tarit normal 



btormiei (50) 


7 4uU,UU 


1 5UU,UU 


LrOSS WOrKS [ouj 


7 4JU,UU 


1 cirt nn 


Fontasm (47) 


630,00 


7U0,L)U 


onessMaster ub udoko (oa) 


bJO,uu 


inn nn 


ProCommand 


450,00 


500,00 


Arlequ[nl40Ko (39) 


135,00 


150,00 


ProSel (36) 


450,00 


500,00 


Compilateur Beagle (35) 


675,00 


750,00 


Big U 140KO (35) 


400,00 


450,00 


Pom_Lfnk 3.1 (34/35) 


400,00 


450,00 


InterPom's 2.0 (31) 


540.00 


600,00 


CIv_Pom's (31) 


180,00 


200,00 


EPE5.1 (15/23) 


180,00 


200,00 


Logiciels pour AppleWorks 1.4 


Ces logiciels detent AppleWorks de la souris. 


de polices 


de caracteres etc. Tarif Joker* Tarif normal 


ExtraFonts (43) 


450,00 


500,00 


TImeOut PowerPack (41) I 


675,00 


750,00 


TImeOut FiIeMaster(41) J 


TImeOut SpreadTools (41) 


495,00 


550,00 


MacroTools (41 ) 


270,00 


300,00 


HacroTools II (44) 


270,00 


300,00 


TImeOut DeskTools 1 (41) 


495,00 


550,00 


TImeOut DeskTools II (44) 


495,00 


550,00 


TImeOut Palnt(39) 


270,00 


300,00 


TImeOut SuperFonts (38) 


720,00 


800,00 


TImeOut UltraMacros (38) 


585,00 


650,00 


TImeOut Graph (38) 


765,00 


850.00 


TImeOut SIdeSpread (38) 


495.00 


550,00 


PathFinder (38) 


135,00 


150,00 


Logiciels pour AppleWorks 3.0 


Franclsatlon AppleWorks 3.0 






-t- UltraMacros (46) 


970,00 


1 070,00 


Idem, en ^change de la version 1.4 650,00 


720,00 


TImeOut ReportWrlter (45) 


720,00 


800.00 


SIdeSpread, SpreadTools (50)* 


720,00 


800,00 


Extrrftont,Superfi3nis, TOPalnt {A9)'720,00 


800,00 


To.Graphet TO.PaInt (49)' 


765,00 


800,00 


MIse S jour des TlmeOuts* 


270,00 


300,00 


•uniqiioncnl ecus suivis dun aslcrisque, JisponiUcs iur ilisquaies 3,5" 



seulement. 

Catalogue de r6f6rence Unlpol 80,00 

(Pour les polices de caracteres) 

* le num&ro entre parentheses indique la revue dans laquclle le pioduit 
est dftait. 
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Editions MEV— 12, rue d'Anjou 78000 
Versailles 

Telephone: (1)39 51 24 43 

Serveur:a)39 53 04 40 

Fax: (1)39 49 54 65 



Logiciel pour IBM PC 

" Accompagnc le livre "Les Secrets de 
Multiplan' de H. Thiriez 

Les Secrets de Multiplan' 175,00 

InterPom's 540,00 600,00 

Cross Works (50) 1 430,00 1 530,00 



Logiciels pour Macintosh 

Tarif Joker* Tarif normal 
1 600,00 1 780,00 



Diagram Maker 

(disponible en version amfiricaine) 

DIagramMaker - D6mo (46) 
Sargon 4 (40) 
Excel Eff icace 
MacAstuces 
Le LIvre du Macintosh 
Copy II Mac version 7.2 (37) 
Pom_LInk 3.1 (34/35) 
InterPom's 2.0 (31) 
Clv^Pom's (31) 
Raccourcl (26) 



540,00 



450,00 
400.00 
540,00 
180,00 
180.00 



80,00 
600,00 
175,00 
200,00 
200,00 
500,00 
450,00 
600.00 
200,00 
200,00 



Shareware Macintosh 



Disquettcs presentees dans les numeros 22, 30 et 45. 

Mac A, B, C, D, E, F, G, H, I, J chacune 100,00 
Pom's Art 1 et 2 (50) les deux 100,00 

Abonnements 1 an (6 numeros) 

♦ Uabonnement It la revue Pom's comprend I'attribulion 
automalique de la carte 'joker'. Celle-ci offre un acc^ 
privilegie a une assistance t^l^phonique et donne droit aux 
remises sur les produits Pom's. 

Revue seule 225,00 
Revue et disquettes Apple // 140Ko 625,00 
Revue et disquettes Apple // 8OOK0 625,00 
Revue et disquettes Macintosh 625,00 
Revue et disquettes Apple // l40Ko et Mac 1 025,00 
Revue et disquettes Apple // 8OOK0 et Mac 1 025,00 



Gagnez du temps. Commandez par 

✓ Minitel au : (1) 39 53 04 40 

✓ Fax au : (1) 39 49 54 65 



Bon de 
commande 



Je desire recevoir : 

Quant. Produit 



Prix total 



]'ai un lecteur Apple // 140Ko □ 
J'ai un lecteur Apple // 8OOK0 □ 
Montant 

Port avion hors CEE 

15,00 F par revue et/ou disquette 

Montant total 



Pour I'achat de quatre disquettes DPA ou Polices de 
caractCres, une cinqui5me de voire choix vous est offerle. 



Je r^gle Cli&que 

par : Carle Bleue/Visa/Eurocard/ Mastercard 

Numero 

Expiration / 

Signature 



Nom 

Pr^nom 

Adresse 



n° de carte Joker 
n" de telephone 
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Recherche pour Apple //c lecieurs 
exiemes //c 5,25" el Unidisk He 3,5". 

Alain Mabion 

" 78 25 74 91 (le soir) 



Vends pour Apple IlGS, carte extension 
memoire 1 Mo avec logiciels, 
I'ensemble 3 000 F. 

Jean-Michel Refalo 
» 9i 49 45 89 (bureau) 



Vends Apple //c 128K +inonkeur ambre 

+ support ■¥ 2*™= lecteur 5.25" + souris + 
joystick + trfes nbx softs avec boites de 
rangement + cable de liaison lie + 
ImageWriter II nbses docs el revues : 
3 000 F. 

David *r 45 39 31 89 



Vendsimprimante Centronix, trfes 
petite, double standard sfirie et parallcle, 
+ support pour papier listing en plexi 
transparent : 1 200 F. 

Alice 47 9 7 89 26 (apres 29 h) 



Vends Apple He. 128 K, 80 co].. 
couleuTS + Moniteur couleiu-s TAXAN +- 
Impriinanle ImageWriter I + deux lecteurs 
Apple 5,25" + logiciels avec ions les 
manuels : 9 000 F. 

Jacques Henry d Aulnois 
a 44 SS 23 90 



Vends Apple //e + (65C02) 128 Ko, 
carte 80 col., souris. joystick, lecteur 
duodisk. moniieur N&B Philips. 4 500 F. 
Maurice Decode V (J) 30 51 27 74 



Vends Macintosh Plus 1 Mo el disquc 
dur Rodime 45 Mo (ires peu servi, sous 
garantie), 10 000 F. 

Lida V 90 04 75 59 fapres 19 h) 



Vends Apple IIGScouleur, 512 Ko 
exlensibles. Complel, dial d'origine, 
docs et programmes. Nouvelles Roms. 
Lecteurs 3,5" et 5,25". 4 500 F k 
d^battre. 

aiirice I'arqiliny 
= 9/ 52 77 02 ou 42 51 51 67 



Vends, cause liquidation boutique, nbi 
logiciels neufs pourlBM i 50 % de 
remise sur prix publics : Windows 2.03, 
Chart 3, ChartS/Muliiplan 3, Excel PC. 
Word 3, Word 4, Paradox. Sprini, 
Javelin, Tops 2.0. Ddcisionnel et 
Hyp. Graphiques. 

A. Duback ^(1)39 51 24 43 



Vends Apple HGS moniteur coulciu- + 
lecieur3,5" el 5,25" : 7 500 F. 

JeanCocel oJS 86 22 28 

VendsMaciniosh portable, disquc dur 
interne 40 Mo avec malletie de trans- 
port, parfait dial, achetd en avril 1990. 

» 9? 41 77 10 (heures de repas) 

Vends Apple IIGS 1,2 Mo de Ram, dcran 
couleur nouvelle Rom + lecteur 5,25" + 
lecieur3,5", prlx a debatire. 
Cherche contacts sur Macintosh, 

Jean-PierreCardeauda54 27 66 17 

Vends2 lecteurs Apple Unidisk 3.5" 
(800 Ko) excellent dial. 1 500 F I'un / 
2 500 F Ics deux. 

Jean-Paul Bourdon ir 74 22 21 80 

Vends Apple DCS moniteur couleur, 
lecieurs 3,5" et 5,25", joystick, 
nombreuses docs et logiciels. 
r ensemble 6 000 F. 

Cocelo35 86 22 28 

Vends Aplle//e 128 Ko, 80 col. + 
1 lecteur 5,25" + moniteur ambre. 
Prix 2 000 F ou Schange contre 
ImageWriter 11. 

Michel Dejey «r 79 54 55 81 



Horizontalement 

1 - Ell* r«l«v* 

2 - Eloigneralt 

3 - Plus que blanches - Sur I'^nveloppe 

4 - Dans - Papillons 

5 - Tissu - Va avsc I'ismt 

6 - A V£s\ its CarpaUs - Pas a mot 

7 - Per* de 1* SPA I - Done pas marin 

8 - Ardent 

9 - Canard - Ecol» 

1 - Pas a nous - Atouts 



Vertiealement 

1 - Chichis 

2 - Elle est bien connue a Epinal 

3 - Proclamation - Allonges 

4 - Salaud - Feminine 

5 - Pas germaine - 

Registre 

6 - Trompa - 

It peut etre positif 

7 - Infiftitif - Marechal - 

Infinitif 

8 - Fiitre - 

II a 1es pieds dans Teau 

9 - Cordon - Note 

1 - Conjonction - Maintenant 



Probleme 50 
vJoelle Piard 
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Farce que les 
besoins de chacun 
sont varies k I'mfini, 
il n'y a pas de police 
de caract&res 
universelle. 

Tour a tour, il faudra etre 
OFFiciEL, joumalistique, 
personnel, simple, facile a 
lire, original et sobre, intime, 
concis... 



FONTASM 2.0 



lill ': 
J| 1 



Mais comment, dans chaque 
police, satisfaire le matheux et ses 
asymptotes le germanophile 6, 
le fana de Mishima ¥ et meme 
I'amoureux v des jeux a ? 

Avec FoNTASM, vous creez votre 
police de caracteres et vous 
adaptez les polices existantes. 
Aujourd'hui, AppleWorks GS, 
MultiScribe GS, DeLuxe Paint, 
PaintWorks Gold ou encore 
Fublish-It produisent des 
documents de qualite, encore 
faut-il, dans la police choisie, 
disposer de tous les caracteres 
souhaites 

dimensionnes comme 
il convient... 



DE STEPHAN HADINGER 




'iihic Edition FenXF noilificalieri; 



h = \iv 



1^ 



1=9!.' 



iiiL 



IliL 



I 



1 = US 



f = U'2 



a = li'3 



1 

n : 111' 



2 



Le GS merite des 
caracteres de qualite, 
FoNTASM vous les offre 
avec facilite. 



Creation de polices S partir de — Modification de toute police GS compatible 
Mulliscribe GS, AppleWorks GS, DeluxePaint. PaintWorks Gold, Publish-lt — Dessin 
et Edition des caracteres avec des outils de type Paint : point , gomme. ligne, rectangle, 
cercle, decalage... — Etfets de relief, ombre, gras, anli-gras. souligne, miroir... — 
Transformation directe d'une partie d'image graptiique en caraclfere— fvlodificalionde 
tous les param^tres de la police — Copier/coiler de tout ou parlie de caraclfere — 
Dimensions des caract6res : jusqu'S 128 x 128 points — Programme fran?ais, 
totalement compatible GS/OS, Iivr6 sur un disque 3,5", iransterable sur disque dur. 

Fontasm est une exclusivity d'Editions Mev-Pom's, 1 2, rue d'Anjou, 78000 Versailles 
® (1) 39 51 24 43 — Minitel (1) 39 53 04 40 

—500,00 F rrc, tarlt Jocker abonne 450,00 1^ 



Editions MEV 
12, rue d'Anjou 
78000 Versailles 
® (1) 39 51 24 43 
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DiagramMaker"'' 



Palette 



Document 



DiagramMaker™ 

DiagramMaker est un logiciel de dessin vectoris6 et de gestion de 
texte sp6cialis6 dans la production de dessins et de docximents 
graphiques de grande quality. Son interface trfes conviviale rend 
facile la creation et la mise a jour de diagrammes, de plannings, 
d'organigrammes, d'ordinogrammes et de transparents. 

DiagramMaker est aujourd'hui I'outil le plus efficace pour la 
creation de documents graphiques structures. H est aussi bien 
utilise par des gestionnaires et des planificateurs, dans le monde 
de I'entreprise, que par des analystes et sp6cialistes systeme dans 
le monde informatique, ou par les enseignants et les 6tudiants 
dans le monde de I'^ducation. 

DiagramMaker respecte totalement rergonomie Macintosh : 
annulation de la demiere operation, multifenetrage, couleurs, 
motifs, polices et styles, copier/coller inter-application, defilement 
automatique des fenetres. 

Ses outils de puissance et de convivialite : 

Une palette personnalisable Affichage personnalisable 



L'utilisateur cr^e ses propres outils de 
dessins et les ajoute k la palette. Les 
palettes peuvent etre sauvegard^es et 
relues k volenti. 

Integration du texte 

A chaque objet est associ^e une zone de 
texte justifiee ; les cadrages sent entie- 
rement r^glables. 

Les connexions 
entre objets 

Pour connecter deux objets, il suffit de 
titer la souris du premier vers le second, 
la liaison sera un trait droit ou courbe, 
avec ou sans fleche. 

Les Uens entre objets 

On peut Her deux objets (leur donner une 
reference commune), y compris entre 
deux documents diff^rents. 

Des arborescences 
immediates 

Transformation immediate et auto- 
matique d'un texte avec indentation en 
un arbre structure. 

Edition de fond 

Sur chaque page d'un document, on peut 
d^finir des Elements de fond, qui seront 
alors visibles ou non, et partageables 
entre plusieurs pages. 



II est possible d'afficher un document 
dan s de nombreuses tailles, depuis un 
fort zoom jusqu'S la vue dans la 
fenetre d'une page ou du document 
tout entier. 

Et d'autres 
fonctions encore... 

Non seulement il est possible 
d'aligner des objets les uns par 
rapport aux autres, mais aussi de les 
centrer par rapport k la page ou au 
document, et d'obtenir des espa- 
cements r^guliers entre les objets. 



DiagramMaker existe en version 
^ de demonstration comprenant 
une version bridge du programme 
et une pile HyperCard d^crivant 
son mode d'emploi et formant une 
assistance en ligne (sous Multi- 
Finder ou avec HyperDA). 



t 
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DiagramMaker demo : 80,00 F 

Cremboursables en cas d' achat) 
• 

DiagramMaker 1 780,00 F TTC 
Tarifabonn^l 600,00 P 

Licences de site : nous consulterj 



